home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1998-05-26 | 49.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 c4 8f 00 00 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 01 00 00 00 10 | 56 45 52 53 49 4f 4e 20 |........|VERSION |
|00000210| 3d 20 20 20 33 2e 30 30 | 00 00 00 01 00 00 00 0c |= 3.00|........|
|00000220| 61 75 74 6f 6d 61 74 65 | 2e 76 63 78 00 00 00 01 |automate|.vcx....|
|00000230| 00 00 00 06 63 75 73 74 | 6f 6d 00 00 00 01 00 00 |....cust|om......|
|00000240| 00 09 6d 61 69 6c 6d 65 | 72 67 65 00 00 00 01 00 |..mailme|rge.....|
|00000250| 00 00 09 6d 61 69 6c 6d | 65 72 67 65 00 00 00 01 |...mailm|erge....|
|00000260| 00 00 00 0a 6d 61 69 6c | 6d 72 67 65 2e 68 00 00 |....mail|mrge.h..|
|00000270| 00 01 00 00 01 15 63 66 | 69 65 6c 64 6c 69 73 74 |......cf|ieldlist|
|00000280| 0d 0a 63 64 61 74 61 66 | 69 6c 65 0d 0a 63 6f 64 |..cdataf|ile..cod|
|00000290| 62 63 73 6f 75 72 63 65 | 0d 0a 63 73 71 6c 73 74 |bcsource|..csqlst|
|000002a0| 6d 74 0d 0a 63 73 71 6c | 73 74 6d 74 32 0d 0a 63 |mt..csql|stmt2..c|
|000002b0| 74 6d 70 66 69 6c 65 0d | 0a 63 64 61 74 61 70 61 |tmpfile.|.cdatapa|
|000002c0| 74 68 0d 0a 6c 65 6e 67 | 6c 69 73 68 0d 0a 63 65 |th..leng|lish..ce|
|000002d0| 78 65 0d 0a 73 79 73 63 | 68 0d 0a 6c 61 6c 65 72 |xe..sysc|h..laler|
|000002e0| 74 65 64 0d 0a 6d 72 67 | 77 6f 72 64 0d 0a 6d 61 |ted..mrg|word..ma|
|000002f0| 6b 65 66 69 65 6c 64 6c | 69 73 74 0d 0a 70 72 65 |kefieldl|ist..pre|
|00000300| 70 64 61 74 61 0d 0a 6d | 61 69 6c 6d 65 72 67 65 |pdata..m|ailmerge|
|00000310| 77 6f 72 64 38 0d 0a 6d | 61 69 6c 6d 65 72 67 65 |word8..m|ailmerge|
|00000320| 77 6f 72 64 36 0d 0a 6d | 73 77 6d 6c 64 6c 67 0d |word6..m|swmldlg.|
|00000330| 0a 73 74 61 72 74 77 6f | 72 64 0d 0a 63 68 65 63 |.startwo|rd..chec|
|00000340| 6b 76 65 72 0d 0a 67 65 | 74 6d 73 77 0d 0a 67 65 |kver..ge|tmsw..ge|
|00000350| 74 73 71 6c 73 74 0d 0a | 6d 72 67 63 6f 6d 6d 61 |tsqlst..|mrgcomma|
|00000360| 64 65 6c 0d 0a 77 7a 6d | 6d 64 61 74 61 0d 0a 6d |del..wzm|mdata..m|
|00000370| 6d 63 6c 65 61 6e 75 70 | 0d 0a 73 61 76 65 73 71 |mcleanup|..savesq|
|00000380| 6c 0d 0a 6d 73 77 65 72 | 72 0d 0a 00 00 00 01 00 |l..mswer|r.......|
|00000390| 00 00 06 50 69 78 65 6c | 73 00 00 00 01 00 00 00 |...Pixel|s.......|
|000003a0| 05 43 6c 61 73 73 00 00 | 00 01 00 00 00 01 31 00 |.Class..|......1.|
|000003b0| 00 00 01 00 00 00 0a 61 | 75 74 6f 6d 61 74 69 6f |.......a|utomatio|
|000003c0| 6e 00 00 00 01 00 00 05 | a1 6e 77 6f 72 64 70 72 |n.......|.nwordpr|
|000003d0| 6f 63 20 73 65 6c 65 63 | 74 65 64 20 77 6f 72 64 |oc selec|ted word|
|000003e0| 20 70 72 6f 63 65 73 73 | 6f 72 20 28 73 65 65 20 | process|or (see |
|000003f0| 4d 61 69 6c 4d 72 67 65 | 2e 68 29 0d 0a 6e 6e 65 |MailMrge|.h)..nne|
|00000400| 77 64 6f 63 20 49 6e 64 | 69 63 61 74 65 73 20 69 |wdoc Ind|icates i|
|00000410| 74 20 61 20 6e 65 77 20 | 64 6f 63 75 6d 65 6e 74 |t a new |document|
|00000420| 20 77 69 6c 6c 20 62 65 | 20 75 73 65 64 20 28 73 | will be| used (s|
|00000430| 65 65 20 4d 61 69 6c 4d | 72 67 65 2e 68 29 0d 0a |ee MailM|rge.h)..|
|00000440| 63 64 6f 63 6e 61 6d 65 | 20 49 66 20 61 6e 20 65 |cdocname| If an e|
|00000450| 78 69 73 74 69 6e 67 20 | 64 6f 63 20 69 73 20 75 |xisting |doc is u|
|00000460| 73 65 64 2c 20 74 68 61 | 74 20 64 6f 63 27 73 20 |sed, tha|t doc's |
|00000470| 66 69 6c 65 20 6e 61 6d | 65 0d 0a 6e 74 65 6d 70 |file nam|e..ntemp|
|00000480| 6c 61 74 65 20 57 6f 72 | 64 20 6f 6e 6c 79 20 2d |late Wor|d only -|
|00000490| 2d 20 74 68 65 20 6d 61 | 69 6e 20 64 6f 63 75 6d |- the ma|in docum|
|000004a0| 65 6e 74 20 74 79 70 65 | 20 28 73 65 65 20 4d 61 |ent type| (see Ma|
|000004b0| 69 6c 4d 72 67 65 2e 68 | 29 0d 0a 63 66 69 65 6c |ilMrge.h|)..cfiel|
|000004c0| 64 6c 69 73 74 0d 0a 63 | 64 61 74 61 66 69 6c 65 |dlist..c|datafile|
|000004d0| 20 32 2e 36 20 63 6f 70 | 79 20 6f 66 20 33 2e 30 | 2.6 cop|y of 3.0|
|000004e0| 2b 20 74 61 62 6c 65 0d | 0a 63 64 61 74 61 73 72 |+ table.|.cdatasr|
|000004f0| 63 20 54 68 65 20 64 61 | 74 61 20 73 6f 75 72 63 |c The da|ta sourc|
|00000500| 65 20 66 6f 72 20 74 68 | 65 20 4f 44 42 43 20 63 |e for th|e ODBC c|
|00000510| 6f 6e 6e 65 63 74 69 6f | 6e 0d 0a 63 6f 64 62 63 |onnectio|n..codbc|
|00000520| 73 6f 75 72 63 65 20 54 | 68 65 20 4f 44 42 43 20 |source T|he ODBC |
|00000530| 63 6f 6e 6e 65 63 74 69 | 6f 6e 20 73 74 72 69 6e |connecti|on strin|
|00000540| 67 0d 0a 63 73 71 6c 73 | 74 6d 74 20 53 51 4c 20 |g..csqls|tmt SQL |
|00000550| 73 74 61 74 65 6d 65 6e | 74 20 66 6f 72 20 65 78 |statemen|t for ex|
|00000560| 74 72 61 63 74 69 6e 67 | 20 64 61 74 61 0d 0a 63 |tracting| data..c|
|00000570| 73 71 6c 73 74 6d 74 32 | 20 41 64 64 69 74 69 6f |sqlstmt2| Additio|
|00000580| 6e 61 6c 20 53 51 4c 20 | 73 74 61 74 65 6d 65 6e |nal SQL |statemen|
|00000590| 74 2c 20 69 66 20 63 53 | 51 4c 53 74 6d 74 20 3e |t, if cS|QLStmt >|
|000005a0| 20 32 35 35 20 28 66 6f | 72 20 57 6f 72 64 29 0d | 255 (fo|r Word).|
|000005b0| 0a 63 73 61 76 65 66 69 | 6c 65 20 66 69 6c 65 20 |.csavefi|le file |
|000005c0| 66 6f 72 20 68 6f 6c 64 | 69 6e 67 20 6d 65 72 67 |for hold|ing merg|
|000005d0| 65 64 20 64 61 74 61 0d | 0a 63 74 6d 70 66 69 6c |ed data.|.ctmpfil|
|000005e0| 65 0d 0a 63 64 61 74 61 | 70 61 74 68 20 70 61 74 |e..cdata|path pat|
|000005f0| 68 20 74 6f 20 46 52 4f | 4d 20 74 61 62 6c 65 0d |h to FRO|M table.|
|00000600| 0a 6c 68 61 73 76 65 72 | 77 6f 72 64 20 48 61 76 |.lhasver|word Hav|
|00000610| 65 20 77 65 20 76 65 72 | 69 66 69 65 64 20 74 68 |e we ver|ified th|
|00000620| 61 74 20 57 6f 72 64 20 | 69 73 20 70 72 65 73 65 |at Word |is prese|
|00000630| 6e 74 3f 0d 0a 63 77 6f | 72 64 76 65 72 73 69 6f |nt?..cwo|rdversio|
|00000640| 6e 20 54 68 65 20 76 65 | 72 73 69 6f 6e 20 6f 66 |n The ve|rsion of|
|00000650| 20 57 6f 72 64 20 74 68 | 61 74 20 69 73 20 69 6e | Word th|at is in|
|00000660| 73 74 61 6c 6c 65 64 2c | 20 61 73 20 63 68 61 72 |stalled,| as char|
|00000670| 20 28 65 2e 67 2e 2c 20 | 27 38 27 29 0d 0a 6c 65 | (e.g., |'8')..le|
|00000680| 6e 67 6c 69 73 68 20 44 | 6f 65 73 20 57 6f 72 64 |nglish D|oes Word|
|00000690| 20 72 65 63 6f 67 6e 69 | 7a 65 20 45 6e 67 6c 69 | recogni|ze Engli|
|000006a0| 73 68 20 57 6f 72 64 20 | 42 61 73 69 63 20 63 6f |sh Word |Basic co|
|000006b0| 6d 6d 61 6e 64 73 3f 0d | 0a 63 65 78 65 20 46 75 |mmands?.|.cexe Fu|
|000006c0| 6c 6c 20 70 61 74 68 20 | 74 6f 20 74 68 65 20 57 |ll path |to the W|
|000006d0| 6f 72 64 20 61 70 70 6c | 69 63 61 74 69 6f 6e 0d |ord appl|ication.|
|000006e0| 0a 73 79 73 63 68 20 41 | 20 44 44 45 20 63 68 61 |.sysch A| DDE cha|
|000006f0| 6e 6e 65 6c 0d 0a 6c 61 | 6c 65 72 74 65 64 20 48 |nnel..la|lerted H|
|00000700| 61 73 20 75 73 65 72 20 | 62 65 65 6e 20 61 6c 65 |as user |been ale|
|00000710| 72 74 65 64 20 6f 66 20 | 66 61 69 6c 75 72 65 3f |rted of |failure?|
|00000720| 0d 0a 5e 61 77 70 6d 72 | 67 5b 32 2c 30 5d 20 41 |..^awpmr|g[2,0] A|
|00000730| 72 72 61 79 20 6f 66 20 | 70 72 6f 63 65 64 75 72 |rray of |procedur|
|00000740| 65 73 20 66 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 |es for h|andling |
|00000750| 76 61 72 69 6f 75 73 20 | 6d 65 72 67 65 20 73 74 |various |merge st|
|00000760| 79 6c 65 73 2e 0d 0a 2a | 6d 72 67 77 6f 72 64 20 |yles...*|mrgword |
|00000770| 44 72 69 76 65 20 76 65 | 72 73 69 6f 6e 73 20 6f |Drive ve|rsions o|
|00000780| 66 20 4d 53 20 57 6f 72 | 64 0d 0a 2a 6d 61 6b 65 |f MS Wor|d..*make|
|00000790| 66 69 65 6c 64 6c 69 73 | 74 20 0d 0a 2a 70 72 65 |fieldlis|t ..*pre|
|000007a0| 70 64 61 74 61 20 50 72 | 65 70 61 72 65 20 64 61 |pdata Pr|epare da|
|000007b0| 74 61 20 73 6f 75 72 63 | 65 0d 0a 2a 6d 61 69 6c |ta sourc|e..*mail|
|000007c0| 6d 65 72 67 65 77 6f 72 | 64 38 20 0d 0a 2a 6d 61 |mergewor|d8 ..*ma|
|000007d0| 69 6c 6d 65 72 67 65 77 | 6f 72 64 36 20 0d 0a 2a |ilmergew|ord6 ..*|
|000007e0| 6d 73 77 6d 6c 64 6c 67 | 20 0d 0a 2a 73 74 61 72 |mswmldlg| ..*star|
|000007f0| 74 77 6f 72 64 20 0d 0a | 2a 63 68 65 63 6b 76 65 |tword ..|*checkve|
|00000800| 72 20 56 65 72 69 66 79 | 20 57 6f 72 64 20 76 65 |r Verify| Word ve|
|00000810| 72 73 69 6f 6e 0d 0a 2a | 67 65 74 6d 73 77 20 47 |rsion..*|getmsw G|
|00000820| 65 74 20 74 68 65 20 4d | 53 20 57 6f 72 64 20 63 |et the M|S Word c|
|00000830| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 20 66 72 6f 6d |ommand l|ine from|
|00000840| 20 72 65 67 69 73 74 72 | 79 0d 0a 2a 67 65 74 73 | registr|y..*gets|
|00000850| 71 6c 73 74 20 47 65 74 | 20 74 68 65 20 53 51 4c |qlst Get| the SQL|
|00000860| 20 73 74 61 74 65 6d 65 | 6e 74 20 66 6f 72 20 65 | stateme|nt for e|
|00000870| 78 74 72 61 63 74 69 6e | 67 20 64 61 74 61 0d 0a |xtractin|g data..|
|00000880| 2a 6d 72 67 63 6f 6d 6d | 61 64 65 6c 20 47 65 6e |*mrgcomm|adel Gen|
|00000890| 65 72 61 74 65 20 61 20 | 64 65 6c 69 6d 69 74 65 |erate a |delimite|
|000008a0| 64 20 74 65 78 74 20 66 | 69 6c 65 20 66 72 6f 6d |d text f|ile from|
|000008b0| 20 64 61 74 61 0d 0a 2a | 77 7a 6d 6d 64 61 74 61 | data..*|wzmmdata|
|000008c0| 20 43 6f 70 79 20 64 61 | 74 61 20 74 6f 20 74 65 | Copy da|ta to te|
|000008d0| 78 74 20 66 69 6c 65 0d | 0a 2a 6d 6d 63 6c 65 61 |xt file.|.*mmclea|
|000008e0| 6e 75 70 20 63 6c 6f 73 | 65 20 66 69 6c 65 73 0d |nup clos|e files.|
|000008f0| 0a 2a 73 61 76 65 73 71 | 6c 20 47 65 6e 65 72 61 |.*savesq|l Genera|
|00000900| 74 65 20 61 20 74 61 62 | 6c 65 20 6f 66 20 53 51 |te a tab|le of SQ|
|00000910| 4c 20 72 65 73 75 6c 74 | 73 0d 0a 2a 6d 61 69 6c |L result|s..*mail|
|00000920| 6d 65 72 67 65 6d 61 63 | 77 6f 72 64 36 20 0d 0a |mergemac|word6 ..|
|00000930| 2a 6d 73 77 65 72 72 20 | 45 72 72 6f 72 20 68 61 |*mswerr |Error ha|
|00000940| 6e 64 6c 65 72 20 77 68 | 69 6c 65 20 4d 61 63 20 |ndler wh|ile Mac |
|00000950| 41 70 70 6c 65 73 63 72 | 69 70 74 20 69 73 20 62 |Applescr|ipt is b|
|00000960| 65 69 6e 67 20 72 75 6e | 0d 0a 00 00 00 01 00 00 |eing run|........|
|00000970| 00 24 02 00 0a 00 6d 61 | 69 6c 6d 72 67 65 2e 68 |.$....ma|ilmrge.h|
|00000980| 5a 6e 64 b2 23 23 08 00 | 64 64 65 63 6d 64 2e 68 |Znd.##..|ddecmd.h|
|00000990| 62 6f 63 b2 23 23 00 00 | 00 01 00 00 00 f0 6e 77 |boc.##..|......nw|
|000009a0| 6f 72 64 70 72 6f 63 20 | 3d 20 31 0d 0a 6e 6e 65 |ordproc |= 1..nne|
|000009b0| 77 64 6f 63 20 3d 20 31 | 0d 0a 63 64 6f 63 6e 61 |wdoc = 1|..cdocna|
|000009c0| 6d 65 20 3d 20 0d 0a 6e | 74 65 6d 70 6c 61 74 65 |me = ..n|template|
|000009d0| 20 3d 20 31 0d 0a 63 66 | 69 65 6c 64 6c 69 73 74 | = 1..cf|ieldlist|
|000009e0| 20 3d 20 0d 0a 63 64 61 | 74 61 66 69 6c 65 20 3d | = ..cda|tafile =|
|000009f0| 20 0d 0a 63 64 61 74 61 | 73 72 63 20 3d 20 0d 0a | ..cdata|src = ..|
|00000a00| 63 6f 64 62 63 73 6f 75 | 72 63 65 20 3d 20 0d 0a |codbcsou|rce = ..|
|00000a10| 63 73 71 6c 73 74 6d 74 | 20 3d 20 0d 0a 63 73 71 |csqlstmt| = ..csq|
|00000a20| 6c 73 74 6d 74 32 20 3d | 20 0d 0a 63 73 61 76 65 |lstmt2 =| ..csave|
|00000a30| 66 69 6c 65 20 3d 20 0d | 0a 63 74 6d 70 66 69 6c |file = .|.ctmpfil|
|00000a40| 65 20 3d 20 0d 0a 63 64 | 61 74 61 70 61 74 68 20 |e = ..cd|atapath |
|00000a50| 3d 20 0d 0a 63 77 6f 72 | 64 76 65 72 73 69 6f 6e |= ..cwor|dversion|
|00000a60| 20 3d 20 0d 0a 63 65 78 | 65 20 3d 20 0d 0a 73 79 | = ..cex|e = ..sy|
|00000a70| 73 63 68 20 3d 20 2d 31 | 0d 0a 4e 61 6d 65 20 3d |sch = -1|..Name =|
|00000a80| 20 22 6d 61 69 6c 6d 65 | 72 67 65 22 0d 0a 00 00 | "mailme|rge"....|
|00000a90| 00 01 00 00 70 3d 50 52 | 4f 43 45 44 55 52 45 20 |....p=PR|OCEDURE |
|00000aa0| 6d 72 67 77 6f 72 64 0d | 0a 09 2a 2d 20 64 72 69 |mrgword.|..*- dri|
|00000ab0| 76 65 20 76 65 72 73 69 | 6f 6e 73 20 6f 66 20 4d |ve versi|ons of M|
|00000ac0| 53 20 57 6f 72 64 0d 0a | 09 49 46 20 21 54 48 49 |S Word..|.IF !THI|
|00000ad0| 53 2e 50 72 65 70 44 61 | 74 61 28 29 0d 0a 09 09 |S.PrepDa|ta()....|
|00000ae0| 52 45 54 55 52 4e 20 2e | 46 2e 0d 0a 09 45 4e 44 |RETURN .|F....END|
|00000af0| 49 46 0d 0a 0d 0a 09 49 | 46 20 5f 6d 61 63 0d 0a |IF.....I|F _mac..|
|00000b00| 09 09 2a 2d 20 77 65 27 | 6c 6c 20 75 73 65 20 41 |..*- we'|ll use A|
|00000b10| 70 70 6c 65 73 63 72 69 | 70 74 20 66 6f 72 20 64 |pplescri|pt for d|
|00000b20| 6f 69 6e 67 20 74 68 69 | 73 20 6f 6e 20 74 68 65 |oing thi|s on the|
|00000b30| 20 4d 61 63 0d 0a 09 09 | 52 45 54 55 52 4e 20 54 | Mac....|RETURN T|
|00000b40| 48 49 53 2e 4d 61 69 6c | 4d 65 72 67 65 4d 61 63 |HIS.Mail|MergeMac|
|00000b50| 57 6f 72 64 36 28 29 0d | 0a 09 45 4e 44 49 46 0d |Word6().|..ENDIF.|
|00000b60| 0a 0d 0a 09 2a 2d 20 67 | 65 74 20 74 68 65 20 76 |....*- g|et the v|
|00000b70| 65 72 73 69 6f 6e 20 6f | 66 20 57 6f 72 64 20 74 |ersion o|f Word t|
|00000b80| 68 61 74 27 73 20 69 6e | 73 74 61 6c 6c 65 64 20 |hat's in|stalled |
|00000b90| 28 61 6e 64 20 77 68 69 | 6c 65 20 77 65 27 72 65 |(and whi|le we're|
|00000ba0| 20 61 74 20 69 74 2c 20 | 74 68 65 20 63 6f 6d 6d | at it, |the comm|
|00000bb0| 61 6e 64 20 6c 69 6e 65 | 29 0d 0a 09 54 48 49 53 |and line|)...THIS|
|00000bc0| 2e 63 65 78 65 20 3d 20 | 54 48 49 53 2e 47 65 74 |.cexe = |THIS.Get|
|00000bd0| 4d 53 57 28 43 5f 57 4f | 52 44 36 5f 4f 52 5f 4c |MSW(C_WO|RD6_OR_L|
|00000be0| 41 54 45 52 29 09 09 26 | 26 20 77 69 6c 6c 20 61 |ATER)..&|& will a|
|00000bf0| 6c 73 6f 20 66 69 6c 6c | 20 69 6e 20 54 48 49 53 |lso fill| in THIS|
|00000c00| 2e 63 57 6f 72 64 56 65 | 72 73 69 6f 6e 0d 0a 09 |.cWordVe|rsion...|
|00000c10| 0d 0a 09 44 4f 20 43 41 | 53 45 0d 0a 09 09 43 41 |...DO CA|SE....CA|
|00000c20| 53 45 20 54 48 49 53 2e | 63 57 6f 72 64 56 65 72 |SE THIS.|cWordVer|
|00000c30| 73 69 6f 6e 20 3d 20 27 | 38 27 0d 0a 09 09 09 54 |sion = '|8'.....T|
|00000c40| 48 49 53 2e 4d 61 69 6c | 4d 65 72 67 65 57 6f 72 |HIS.Mail|MergeWor|
|00000c50| 64 38 0d 0a 09 09 4f 54 | 48 45 52 57 49 53 45 0d |d8....OT|HERWISE.|
|00000c60| 0a 09 09 09 54 48 49 53 | 2e 4d 61 69 6c 4d 65 72 |....THIS|.MailMer|
|00000c70| 67 65 57 6f 72 64 36 09 | 09 09 0d 0a 09 45 4e 44 |geWord6.|.....END|
|00000c80| 43 41 53 45 0d 0a 09 0d | 0a 0d 0a 45 4e 44 50 52 |CASE....|...ENDPR|
|00000c90| 4f 43 0d 0a 50 52 4f 43 | 45 44 55 52 45 20 6d 61 |OC..PROC|EDURE ma|
|00000ca0| 6b 65 66 69 65 6c 64 6c | 69 73 74 0d 0a 09 50 41 |kefieldl|ist...PA|
|00000cb0| 52 41 4d 45 54 45 52 20 | 69 4d 61 78 46 6c 64 4c |RAMETER |iMaxFldL|
|00000cc0| 65 6e 2c 20 63 44 65 6c | 69 6d 69 74 0d 0a 09 0d |en, cDel|imit....|
|00000cd0| 0a 09 2a 2d 20 6d 61 6b | 65 20 66 69 65 6c 64 20 |..*- mak|e field |
|00000ce0| 6c 69 73 74 0d 0a 09 54 | 48 49 53 2e 63 46 69 65 |list...T|HIS.cFie|
|00000cf0| 6c 64 4c 69 73 74 20 3d | 20 22 22 0d 0a 09 46 4f |ldList =| ""...FO|
|00000d00| 52 20 6d 2e 69 20 3d 20 | 31 20 54 4f 20 41 4c 45 |R m.i = |1 TO ALE|
|00000d10| 4e 28 54 48 49 53 2e 61 | 41 75 74 6f 46 69 65 6c |N(THIS.a|AutoFiel|
|00000d20| 64 73 29 0d 0a 09 09 54 | 48 49 53 2e 63 46 69 65 |ds)....T|HIS.cFie|
|00000d30| 6c 64 4c 69 73 74 20 3d | 20 54 48 49 53 2e 63 46 |ldList =| THIS.cF|
|00000d40| 69 65 6c 64 4c 69 73 74 | 20 2b 20 4c 45 46 54 28 |ieldList| + LEFT(|
|00000d50| 54 48 49 53 2e 61 41 75 | 74 6f 46 69 65 6c 64 73 |THIS.aAu|toFields|
|00000d60| 5b 69 5d 2c 69 4d 61 78 | 46 6c 64 4c 65 6e 29 20 |[i],iMax|FldLen) |
|00000d70| 2b 20 27 2c 27 0d 0a 09 | 4e 45 58 54 0d 0a 09 54 |+ ','...|NEXT...T|
|00000d80| 48 49 53 2e 63 46 69 65 | 6c 64 4c 69 73 74 20 3d |HIS.cFie|ldList =|
|00000d90| 20 4c 45 46 54 28 09 54 | 48 49 53 2e 63 46 69 65 | LEFT(.T|HIS.cFie|
|00000da0| 6c 64 4c 69 73 74 2c 4c | 45 4e 28 54 48 49 53 2e |ldList,L|EN(THIS.|
|00000db0| 63 46 69 65 6c 64 4c 69 | 73 74 29 20 2d 20 31 29 |cFieldLi|st) - 1)|
|00000dc0| 09 26 26 20 72 65 6d 6f | 76 65 20 65 78 74 72 61 |.&& remo|ve extra|
|00000dd0| 20 64 65 6c 69 6d 69 74 | 65 72 0d 0a 0d 0a 0d 0a | delimit|er......|
|00000de0| 45 4e 44 50 52 4f 43 0d | 0a 50 52 4f 43 45 44 55 |ENDPROC.|.PROCEDU|
|00000df0| 52 45 20 70 72 65 70 64 | 61 74 61 0d 0a 0d 0a 09 |RE prepd|ata.....|
|00000e00| 2a 2d 20 70 72 65 70 61 | 72 65 20 64 61 74 61 20 |*- prepa|re data |
|00000e10| 73 6f 75 72 63 65 0d 0a | 09 0d 0a 09 4c 4f 43 41 |source..|....LOCA|
|00000e20| 4c 20 63 46 6c 64 73 2c | 20 63 4f 6c 64 53 61 66 |L cFlds,| cOldSaf|
|00000e30| 65 2c 20 69 4c 65 6e 2c | 20 69 46 48 2c 20 6c 43 |e, iLen,| iFH, lC|
|00000e40| 6f 70 79 46 69 6c 65 2c | 20 63 44 42 51 50 61 74 |opyFile,| cDBQPat|
|00000e50| 68 0d 0a 09 0d 0a 09 49 | 46 20 54 48 49 53 2e 6e |h......I|F THIS.n|
|00000e60| 4e 65 77 44 6f 63 20 3d | 20 4e 5f 45 58 49 53 54 |NewDoc =| N_EXIST|
|00000e70| 49 4e 47 5f 44 4f 43 0d | 0a 09 09 54 48 49 53 2e |ING_DOC.|...THIS.|
|00000e80| 63 44 6f 63 4e 61 6d 65 | 20 3d 20 41 4c 4c 54 28 |cDocName| = ALLT(|
|00000e90| 54 48 49 53 2e 63 44 6f | 63 4e 61 6d 65 29 0d 0a |THIS.cDo|cName)..|
|00000ea0| 09 09 49 46 20 45 4d 50 | 54 59 28 54 48 49 53 2e |..IF EMP|TY(THIS.|
|00000eb0| 63 44 6f 63 4e 61 6d 65 | 29 0d 0a 09 09 09 52 45 |cDocName|).....RE|
|00000ec0| 54 55 52 4e 20 2e 46 2e | 0d 0a 09 09 45 4e 44 49 |TURN .F.|....ENDI|
|00000ed0| 46 0d 0a 09 45 4e 44 49 | 46 0d 0a 0d 0a 09 49 46 |F...ENDI|F.....IF|
|00000ee0| 20 21 5f 6d 61 63 09 09 | 09 09 09 09 09 09 09 09 | !_mac..|........|
|00000ef0| 09 09 26 26 20 77 65 20 | 61 72 65 6e 27 74 20 75 |..&& we |aren't u|
|00000f00| 73 69 6e 67 20 4f 44 42 | 43 20 6f 6e 20 4d 61 63 |sing ODB|C on Mac|
|00000f10| 0d 0a 09 09 2a 2d 20 67 | 65 74 20 4f 44 42 43 20 |....*- g|et ODBC |
|00000f20| 64 72 69 76 65 72 73 20 | 2d 2d 20 77 65 27 6c 6c |drivers |-- we'll|
|00000f30| 20 6e 65 65 64 20 74 68 | 69 73 20 69 6e 66 6f 20 | need th|is info |
|00000f40| 6c 61 74 65 72 20 6f 6e | 0d 0a 09 09 2a 2d 20 43 |later on|....*- C|
|00000f50| 68 65 63 6b 20 66 6f 72 | 20 70 72 6f 70 65 72 20 |heck for| proper |
|00000f60| 4f 44 42 43 20 64 72 69 | 76 65 72 73 0d 0a 09 09 |ODBC dri|vers....|
|00000f70| 49 46 20 21 54 48 49 53 | 2e 4f 44 42 43 43 68 65 |IF !THIS|.ODBCChe|
|00000f80| 63 6b 28 29 0d 0a 09 09 | 09 52 45 54 55 52 4e 20 |ck()....|.RETURN |
|00000f90| 2e 46 2e 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 45 |.F.....E|NDIF...E|
|00000fa0| 4e 44 49 46 0d 0a 0d 0a | 09 6d 2e 6c 43 6f 70 79 |NDIF....|.m.lCopy|
|00000fb0| 46 69 6c 65 20 3d 20 2e | 46 2e 0d 0a 0d 0a 09 49 |File = .|F......I|
|00000fc0| 46 20 54 48 49 53 2e 6c | 48 61 73 33 30 44 72 69 |F THIS.l|Has30Dri|
|00000fd0| 76 65 72 73 20 41 4e 44 | 20 43 55 52 53 4f 52 47 |vers AND| CURSORG|
|00000fe0| 45 54 50 52 4f 50 28 27 | 73 6f 75 72 63 65 74 79 |ETPROP('|sourcety|
|00000ff0| 70 65 27 29 20 23 20 4b | 5f 54 41 42 4c 45 0d 0a |pe') # K|_TABLE..|
|00001000| 09 09 2a 2d 20 61 73 73 | 75 6d 65 20 69 73 20 61 |..*- ass|ume is a|
|00001010| 20 76 69 65 77 20 74 68 | 61 74 20 57 6f 72 64 20 | view th|at Word |
|00001020| 36 2e 30 20 63 61 6e 27 | 74 20 68 61 6e 64 6c 65 |6.0 can'|t handle|
|00001030| 20 2d 2d 20 64 6f 6e 27 | 74 20 75 73 65 20 64 61 | -- don'|t use da|
|00001040| 74 61 73 6f 75 72 63 65 | 0d 0a 09 09 54 48 49 53 |tasource|....THIS|
|00001050| 2e 63 44 61 74 61 53 72 | 63 20 3d 20 22 22 0d 0a |.cDataSr|c = ""..|
|00001060| 09 45 4c 53 45 0d 0a 09 | 09 54 48 49 53 2e 63 44 |.ELSE...|.THIS.cD|
|00001070| 61 74 61 53 72 63 20 3d | 20 44 42 46 28 29 0d 0a |ataSrc =| DBF()..|
|00001080| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 2a 2d 20 43 68 |.ENDIF..|...*- Ch|
|00001090| 65 63 6b 20 69 66 20 77 | 65 20 68 61 76 65 20 61 |eck if w|e have a|
|000010a0| 20 44 42 43 20 69 6e 20 | 75 73 65 0d 0a 09 53 45 | DBC in |use...SE|
|000010b0| 4c 45 43 54 20 28 54 48 | 49 53 2e 63 41 6c 69 61 |LECT (TH|IS.cAlia|
|000010c0| 73 29 0d 0a 0d 0a 09 2a | 2d 20 43 68 65 63 6b 20 |s).....*|- Check |
|000010d0| 69 66 20 33 2e 30 20 44 | 42 43 20 69 73 20 6f 70 |if 3.0 D|BC is op|
|000010e0| 65 6e 65 64 20 65 78 63 | 6c 75 73 69 76 65 6c 79 |ened exc|lusively|
|000010f0| 0d 0a 09 49 46 20 54 48 | 49 53 2e 6c 48 61 73 33 |...IF TH|IS.lHas3|
|00001100| 30 44 72 69 76 65 72 73 | 20 41 4e 44 20 21 45 4d |0Drivers| AND !EM|
|00001110| 50 54 59 28 54 48 49 53 | 2e 63 44 42 43 4e 61 6d |PTY(THIS|.cDBCNam|
|00001120| 65 29 20 41 4e 44 20 49 | 53 45 58 43 4c 28 54 48 |e) AND I|SEXCL(TH|
|00001130| 49 53 2e 4a 75 73 74 53 | 74 65 6d 28 54 48 49 53 |IS.JustS|tem(THIS|
|00001140| 2e 63 44 42 43 4e 61 6d | 65 29 2c 32 29 0d 0a 09 |.cDBCNam|e),2)...|
|00001150| 09 49 46 20 54 48 49 53 | 2e 41 4c 45 52 54 28 43 |.IF THIS|.ALERT(C|
|00001160| 5f 45 58 43 4c 44 42 43 | 31 5f 4c 4f 43 20 2b 20 |_EXCLDBC|1_LOC + |
|00001170| 54 48 49 53 2e 63 44 42 | 43 4e 61 6d 65 20 2b 20 |THIS.cDB|CName + |
|00001180| 43 5f 45 58 43 4c 44 42 | 43 32 5f 4c 4f 43 2c 33 |C_EXCLDB|C2_LOC,3|
|00001190| 36 29 20 3d 3d 20 22 59 | 45 53 22 0d 0a 09 09 09 |6) == "Y|ES".....|
|000011a0| 63 54 6d 70 44 62 63 41 | 6c 69 61 73 20 3d 20 54 |cTmpDbcA|lias = T|
|000011b0| 48 49 53 2e 63 44 42 43 | 4e 61 6d 65 0d 0a 09 09 |HIS.cDBC|Name....|
|000011c0| 09 53 45 54 20 44 41 54 | 41 42 41 53 45 20 54 4f |.SET DAT|ABASE TO|
|000011d0| 20 28 6d 2e 63 54 6d 70 | 44 62 63 41 6c 69 61 73 | (m.cTmp|DbcAlias|
|000011e0| 29 0d 0a 09 09 09 43 4c | 4f 53 45 20 44 41 54 41 |).....CL|OSE DATA|
|000011f0| 42 41 53 45 20 0d 0a 09 | 09 09 4f 50 45 4e 20 44 |BASE ...|..OPEN D|
|00001200| 41 54 41 42 41 53 45 20 | 28 54 48 49 53 2e 63 44 |ATABASE |(THIS.cD|
|00001210| 42 43 4e 61 6d 65 29 20 | 53 48 41 52 45 44 0d 0a |BCName) |SHARED..|
|00001220| 09 09 09 55 53 45 20 28 | 54 48 49 53 2e 63 44 42 |...USE (|THIS.cDB|
|00001230| 43 54 61 62 6c 65 29 20 | 41 4c 49 41 53 20 28 54 |CTable) |ALIAS (T|
|00001240| 48 49 53 2e 63 41 6c 69 | 61 73 29 20 53 48 41 52 |HIS.cAli|as) SHAR|
|00001250| 45 44 0d 0a 09 09 45 4c | 53 45 0d 0a 09 09 09 52 |ED....EL|SE.....R|
|00001260| 45 54 55 52 4e 0d 0a 09 | 09 45 4e 44 49 46 0d 0a |ETURN...|.ENDIF..|
|00001270| 09 45 4e 44 49 46 0d 0a | 09 0d 0a 09 2a 2d 20 43 |.ENDIF..|....*- C|
|00001280| 68 65 63 6b 20 66 6f 72 | 20 33 2e 30 20 54 61 62 |heck for| 3.0 Tab|
|00001290| 6c 65 20 74 79 70 65 20 | 4f 52 20 56 69 65 77 0d |le type |OR View.|
|000012a0| 0a 09 2a 2d 20 4d 61 63 | 20 64 6f 65 73 6e 27 74 |..*- Mac| doesn't|
|000012b0| 20 75 73 65 20 4f 44 42 | 43 20 73 6f 20 63 61 6e | use ODB|C so can|
|000012c0| 20 68 61 6e 64 6c 65 20 | 33 2e 30 20 66 69 6c 65 | handle |3.0 file|
|000012d0| 73 2c 20 62 75 74 20 63 | 61 6e 27 74 20 68 61 6e |s, but c|an't han|
|000012e0| 64 6c 65 20 56 69 65 77 | 73 0d 0a 09 49 46 20 21 |dle View|s...IF !|
|000012f0| 6d 2e 6c 43 6f 70 79 46 | 69 6c 65 20 41 4e 44 20 |m.lCopyF|ile AND |
|00001300| 3b 0d 0a 09 09 28 28 21 | 5f 6d 61 63 20 41 4e 44 |;....((!|_mac AND|
|00001310| 20 21 54 48 49 53 2e 6c | 48 61 73 33 30 44 72 69 | !THIS.l|Has30Dri|
|00001320| 76 65 72 73 20 41 4e 44 | 3b 0d 0a 09 09 28 56 41 |vers AND|;....(VA|
|00001330| 4c 28 53 59 53 28 32 30 | 32 39 29 29 20 3d 20 44 |L(SYS(20|29)) = D|
|00001340| 42 46 54 59 50 45 5f 33 | 30 20 4f 52 20 43 55 52 |BFTYPE_3|0 OR CUR|
|00001350| 53 4f 52 47 45 54 50 52 | 4f 50 28 27 73 6f 75 72 |SORGETPR|OP('sour|
|00001360| 63 65 74 79 70 65 27 29 | 20 23 20 4b 5f 54 41 42 |cetype')| # K_TAB|
|00001370| 4c 45 29 29 20 4f 52 3b | 0d 0a 09 09 28 5f 6d 61 |LE)) OR;|....(_ma|
|00001380| 63 20 41 4e 44 20 43 55 | 52 53 4f 52 47 45 54 50 |c AND CU|RSORGETP|
|00001390| 52 4f 50 28 22 73 6f 75 | 72 63 65 74 79 70 65 22 |ROP("sou|rcetype"|
|000013a0| 29 20 23 20 4b 5f 54 41 | 42 4c 45 29 29 0d 0a 09 |) # K_TA|BLE))...|
|000013b0| 09 49 46 20 54 48 49 53 | 2e 41 6c 65 72 74 28 49 |.IF THIS|.Alert(I|
|000013c0| 49 46 28 5f 6d 61 63 2c | 43 5f 43 4f 50 59 46 4f |IF(_mac,|C_COPYFO|
|000013d0| 58 33 5f 4c 4f 43 2c 43 | 5f 43 4f 50 59 46 4f 58 |X3_LOC,C|_COPYFOX|
|000013e0| 32 5f 4c 4f 43 29 2c 33 | 36 29 20 24 20 22 59 45 |2_LOC),3|6) $ "YE|
|000013f0| 53 22 0d 0a 09 09 09 6c | 43 6f 70 79 46 69 6c 65 |S".....l|CopyFile|
|00001400| 20 3d 20 2e 54 2e 0d 0a | 09 09 45 4c 53 45 0d 0a | = .T...|..ELSE..|
|00001410| 09 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00001420| 09 45 4e 44 49 46 0d 0a | 09 45 4e 44 49 46 0d 0a |.ENDIF..|.ENDIF..|
|00001430| 0d 0a 0d 0a 09 49 46 20 | 6d 2e 6c 43 6f 70 79 46 |.....IF |m.lCopyF|
|00001440| 69 6c 65 09 09 0d 0a 09 | 09 09 09 0d 0a 09 09 4c |ile.....|.......L|
|00001450| 4f 43 41 4c 20 6d 2e 63 | 53 61 76 65 46 69 6c 65 |OCAL m.c|SaveFile|
|00001460| 0d 0a 0d 0a 09 09 63 46 | 6c 64 73 20 3d 20 54 48 |......cF|lds = TH|
|00001470| 49 53 2e 63 46 69 65 6c | 64 4c 69 73 74 0d 0a 0d |IS.cFiel|dList...|
|00001480| 0a 09 09 49 46 20 43 55 | 52 53 4f 52 47 45 54 50 |...IF CU|RSORGETP|
|00001490| 52 4f 50 28 27 73 6f 75 | 72 63 65 74 79 70 65 27 |ROP('sou|rcetype'|
|000014a0| 29 20 23 20 33 09 09 20 | 26 26 20 4f 52 20 41 54 |) # 3.. |&& OR AT|
|000014b0| 43 28 22 2e 54 4d 50 22 | 2c 44 42 46 28 29 29 23 |C(".TMP"|,DBF())#|
|000014c0| 30 0d 0a 09 09 09 54 48 | 49 53 2e 63 44 61 74 61 |0.....TH|IS.cData|
|000014d0| 46 69 6c 65 20 3d 20 43 | 75 72 73 6f 72 47 65 74 |File = C|ursorGet|
|000014e0| 70 72 6f 70 28 22 73 6f | 75 72 63 65 6e 61 6d 65 |prop("so|urcename|
|000014f0| 22 29 0d 0a 09 09 45 4c | 53 45 0d 0a 09 09 09 54 |")....EL|SE.....T|
|00001500| 48 49 53 2e 63 44 61 74 | 61 46 69 6c 65 20 3d 20 |HIS.cDat|aFile = |
|00001510| 54 48 49 53 2e 4a 75 73 | 74 53 74 65 6d 28 44 42 |THIS.Jus|tStem(DB|
|00001520| 46 28 29 29 0d 0a 09 09 | 45 4e 44 49 46 0d 0a 0d |F())....|ENDIF...|
|00001530| 0a 09 09 69 4c 65 6e 20 | 3d 20 4c 45 4e 28 54 48 |...iLen |= LEN(TH|
|00001540| 49 53 2e 63 44 61 74 61 | 46 69 6c 65 29 0d 0a 09 |IS.cData|File)...|
|00001550| 09 49 46 20 52 49 47 48 | 54 28 53 54 52 28 56 41 |.IF RIGH|T(STR(VA|
|00001560| 4c 28 54 48 49 53 2e 63 | 44 61 74 61 46 69 6c 65 |L(THIS.c|DataFile|
|00001570| 29 20 2b 20 31 30 5e 69 | 4c 65 6e 2c 69 4c 65 6e |) + 10^i|Len,iLen|
|00001580| 20 2b 20 31 29 2c 69 4c | 65 6e 29 20 3d 20 54 48 | + 1),iL|en) = TH|
|00001590| 49 53 2e 63 44 61 74 61 | 46 69 6c 65 0d 0a 09 09 |IS.cData|File....|
|000015a0| 09 2a 2d 20 61 70 70 61 | 72 65 6e 74 6c 79 20 61 |.*- appa|rently a|
|000015b0| 20 76 69 65 77 3f 20 54 | 68 65 20 66 69 6c 65 6e | view? T|he filen|
|000015c0| 61 6d 65 20 69 73 20 61 | 6c 6c 20 6e 75 6d 62 65 |ame is a|ll numbe|
|000015d0| 72 73 0d 0a 09 09 09 2a | 2d 20 75 73 65 20 74 68 |rs.....*|- use th|
|000015e0| 65 20 61 6c 69 61 73 20 | 69 6e 73 74 65 61 64 0d |e alias |instead.|
|000015f0| 0a 09 09 09 54 48 49 53 | 2e 63 44 61 74 61 46 69 |....THIS|.cDataFi|
|00001600| 6c 65 20 3d 20 4c 45 46 | 54 28 54 48 49 53 2e 63 |le = LEF|T(THIS.c|
|00001610| 41 6c 69 61 73 2c 36 29 | 0d 0a 09 09 45 4e 44 49 |Alias,6)|....ENDI|
|00001620| 46 0d 0a 09 09 44 4f 20 | 43 41 53 45 0d 0a 09 09 |F....DO |CASE....|
|00001630| 43 41 53 45 20 4c 45 4e | 28 54 48 49 53 2e 63 44 |CASE LEN|(THIS.cD|
|00001640| 61 74 61 46 69 6c 65 29 | 20 3c 20 37 0d 0a 09 09 |ataFile)| < 7....|
|00001650| 09 54 48 49 53 2e 63 44 | 61 74 61 46 69 6c 65 20 |.THIS.cD|ataFile |
|00001660| 3d 20 54 48 49 53 2e 63 | 44 61 74 61 46 69 6c 65 |= THIS.c|DataFile|
|00001670| 20 2b 20 22 5f 32 22 0d | 0a 09 09 43 41 53 45 20 | + "_2".|...CASE |
|00001680| 4c 45 4e 28 54 48 49 53 | 2e 63 44 61 74 61 46 69 |LEN(THIS|.cDataFi|
|00001690| 6c 65 29 20 3d 20 37 0d | 0a 09 09 09 54 48 49 53 |le) = 7.|....THIS|
|000016a0| 2e 63 44 61 74 61 46 69 | 6c 65 20 3d 20 54 48 49 |.cDataFi|le = THI|
|000016b0| 53 2e 63 44 61 74 61 46 | 69 6c 65 20 2b 20 22 32 |S.cDataF|ile + "2|
|000016c0| 22 0d 0a 09 09 43 41 53 | 45 20 52 49 47 48 54 28 |"....CAS|E RIGHT(|
|000016d0| 54 48 49 53 2e 63 44 61 | 74 61 46 69 6c 65 2c 31 |THIS.cDa|taFile,1|
|000016e0| 29 20 3d 20 22 32 22 0d | 0a 09 09 09 54 48 49 53 |) = "2".|....THIS|
|000016f0| 2e 63 44 61 74 61 46 69 | 6c 65 20 3d 20 4c 45 46 |.cDataFi|le = LEF|
|00001700| 54 28 54 48 49 53 2e 63 | 44 61 74 61 46 69 6c 65 |T(THIS.c|DataFile|
|00001710| 2c 37 29 20 2b 20 22 5f | 22 0d 0a 09 09 4f 54 48 |,7) + "_|"....OTH|
|00001720| 45 52 57 49 53 45 0d 0a | 09 09 09 54 48 49 53 2e |ERWISE..|...THIS.|
|00001730| 63 44 61 74 61 46 69 6c | 65 20 3d 20 4c 45 46 54 |cDataFil|e = LEFT|
|00001740| 28 54 48 49 53 2e 63 44 | 61 74 61 46 69 6c 65 2c |(THIS.cD|ataFile,|
|00001750| 37 29 20 2b 20 22 32 22 | 0d 0a 09 09 45 4e 44 43 |7) + "2"|....ENDC|
|00001760| 41 53 45 0d 0a 09 09 09 | 09 09 09 0d 0a 09 09 6d |ASE.....|.......m|
|00001770| 2e 63 6f 6c 64 73 61 66 | 65 20 3d 20 53 45 54 28 |.coldsaf|e = SET(|
|00001780| 22 53 41 46 45 22 29 0d | 0a 09 09 53 45 54 20 53 |"SAFE").|...SET S|
|00001790| 41 46 45 54 59 20 4f 4e | 0d 0a 09 09 54 48 49 53 |AFETY ON|....THIS|
|000017a0| 2e 63 44 61 74 61 46 69 | 6c 65 20 3d 20 50 55 54 |.cDataFi|le = PUT|
|000017b0| 46 49 4c 45 28 43 5f 43 | 4f 50 59 50 52 4f 4d 50 |FILE(C_C|OPYPROMP|
|000017c0| 54 5f 4c 4f 43 2c 54 48 | 49 53 2e 63 44 61 74 61 |T_LOC,TH|IS.cData|
|000017d0| 46 69 6c 65 20 2b 20 22 | 2e 64 62 66 22 2c 22 44 |File + "|.dbf","D|
|000017e0| 42 46 22 29 0d 0a 09 09 | 53 45 54 20 53 41 46 45 |BF")....|SET SAFE|
|000017f0| 54 59 20 26 63 6f 6c 64 | 73 61 66 65 0d 0a 09 09 |TY &cold|safe....|
|00001800| 49 46 20 45 4d 50 54 59 | 28 54 48 49 53 2e 63 44 |IF EMPTY|(THIS.cD|
|00001810| 61 74 61 46 69 6c 65 29 | 0d 0a 09 09 09 52 45 54 |ataFile)|.....RET|
|00001820| 55 52 4e 20 2e 46 2e 0d | 0a 09 09 45 4e 44 49 46 |URN .F..|...ENDIF|
|00001830| 0d 0a 0d 0a 09 09 54 48 | 49 53 2e 63 44 61 74 61 |......TH|IS.cData|
|00001840| 46 69 6c 65 20 3d 20 54 | 48 49 53 2e 46 4f 52 43 |File = T|HIS.FORC|
|00001850| 45 45 58 54 28 54 48 49 | 53 2e 63 44 61 74 61 46 |EEXT(THI|S.cDataF|
|00001860| 69 6c 65 2c 22 44 42 46 | 22 29 0d 0a 0d 0a 09 09 |ile,"DBF|")......|
|00001870| 2a 2d 20 63 68 65 63 6b | 20 69 66 20 66 69 6c 65 |*- check| if file|
|00001880| 20 65 78 69 73 74 73 2c | 20 61 6e 64 20 69 66 20 | exists,| and if |
|00001890| 73 6f 2c 20 6d 61 6b 65 | 20 73 75 72 65 20 74 68 |so, make| sure th|
|000018a0| 61 74 20 77 65 20 63 61 | 6e 20 6f 76 65 72 77 72 |at we ca|n overwr|
|000018b0| 69 74 65 20 69 74 0d 0a | 09 09 49 46 20 46 49 4c |ite it..|..IF FIL|
|000018c0| 45 28 54 48 49 53 2e 63 | 44 61 74 61 46 69 6c 65 |E(THIS.c|DataFile|
|000018d0| 29 0d 0a 09 09 09 54 48 | 49 53 2e 53 65 74 45 72 |).....TH|IS.SetEr|
|000018e0| 72 6f 72 4f 66 66 20 3d | 20 2e 74 2e 0d 0a 09 09 |rorOff =| .t.....|
|000018f0| 09 45 52 41 53 45 20 28 | 54 48 49 53 2e 63 44 61 |.ERASE (|THIS.cDa|
|00001900| 74 61 46 69 6c 65 29 0d | 0a 09 09 09 54 48 49 53 |taFile).|....THIS|
|00001910| 2e 53 65 74 45 72 72 6f | 72 4f 66 66 20 3d 20 2e |.SetErro|rOff = .|
|00001920| 66 2e 0d 0a 09 09 09 49 | 46 20 46 49 4c 45 28 54 |f......I|F FILE(T|
|00001930| 48 49 53 2e 63 44 61 74 | 61 46 69 6c 65 29 0d 0a |HIS.cDat|aFile)..|
|00001940| 09 09 09 09 2a 2d 20 63 | 61 6e 27 74 20 67 65 74 |....*- c|an't get|
|00001950| 20 72 69 64 20 6f 66 20 | 66 69 6c 65 2c 20 73 6f | rid of |file, so|
|00001960| 20 66 61 69 6c 0d 0a 09 | 09 09 09 54 48 49 53 2e | fail...|...THIS.|
|00001970| 41 6c 65 72 74 28 45 5f | 4e 4f 52 45 50 4c 41 43 |Alert(E_|NOREPLAC|
|00001980| 45 54 42 4c 5f 4c 4f 43 | 29 0d 0a 09 09 09 09 52 |ETBL_LOC|)......R|
|00001990| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 09 09 09 45 4e |ETURN .F|......EN|
|000019a0| 44 49 46 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 09 |DIF....E|NDIF....|
|000019b0| 0d 0a 09 09 49 46 20 43 | 55 52 53 4f 52 47 45 54 |....IF C|URSORGET|
|000019c0| 50 52 4f 50 28 22 73 6f | 75 72 63 65 74 79 70 65 |PROP("so|urcetype|
|000019d0| 22 29 20 23 20 4b 5f 54 | 41 42 4c 45 0d 0a 09 09 |") # K_T|ABLE....|
|000019e0| 09 3d 52 45 51 55 45 52 | 59 28 29 09 09 09 26 26 |.=REQUER|Y()...&&|
|000019f0| 20 67 65 74 20 73 6f 6d | 65 20 64 61 74 61 0d 0a | get som|e data..|
|00001a00| 09 09 45 4e 44 49 46 0d | 0a 09 09 43 4f 50 59 20 |..ENDIF.|...COPY |
|00001a10| 46 49 45 4c 44 53 20 26 | 63 46 6c 64 73 20 54 4f |FIELDS &|cFlds TO|
|00001a20| 20 28 54 48 49 53 2e 63 | 44 61 74 61 46 69 6c 65 | (THIS.c|DataFile|
|00001a30| 29 20 54 59 50 45 20 46 | 4f 58 32 0d 0a 0d 0a 09 |) TYPE F|OX2.....|
|00001a40| 09 2a 2d 20 43 6f 70 69 | 65 64 20 6f 6b 3f 0d 0a |.*- Copi|ed ok?..|
|00001a50| 09 09 49 46 20 21 46 49 | 4c 45 28 54 48 49 53 2e |..IF !FI|LE(THIS.|
|00001a60| 63 44 61 74 61 46 69 6c | 65 29 0d 0a 09 09 09 52 |cDataFil|e).....R|
|00001a70| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 09 09 45 4e 44 |ETURN .F|.....END|
|00001a80| 49 46 0d 0a 0d 0a 09 09 | 53 45 4c 45 43 54 20 30 |IF......|SELECT 0|
|00001a90| 0d 0a 09 09 55 53 45 20 | 28 54 48 49 53 2e 63 44 |....USE |(THIS.cD|
|00001aa0| 61 74 61 46 69 6c 65 29 | 20 53 48 41 52 45 44 0d |ataFile)| SHARED.|
|00001ab0| 0a 0d 0a 09 09 2a 2d 20 | 46 61 69 6c 65 64 20 73 |.....*- |Failed s|
|00001ac0| 6f 6d 65 77 68 65 72 65 | 0d 0a 09 09 49 46 20 45 |omewhere|....IF E|
|00001ad0| 4d 50 54 59 28 41 4c 49 | 41 53 28 29 29 20 4f 52 |MPTY(ALI|AS()) OR|
|00001ae0| 20 56 41 4c 28 53 59 53 | 28 32 30 32 39 29 29 3d | VAL(SYS|(2029))=|
|00001af0| 44 42 46 54 59 50 45 5f | 33 30 0d 0a 09 09 09 52 |DBFTYPE_|30.....R|
|00001b00| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 09 09 45 4c 53 |ETURN .F|.....ELS|
|00001b10| 45 0d 0a 09 09 09 2a 2d | 20 67 65 74 20 74 68 65 |E.....*-| get the|
|00001b20| 20 53 51 4c 20 73 74 61 | 74 65 6d 65 6e 74 20 6e | SQL sta|tement n|
|00001b30| 6f 77 2c 20 77 68 69 6c | 65 20 77 65 20 61 72 65 |ow, whil|e we are|
|00001b40| 20 75 73 69 6e 67 20 74 | 68 69 73 20 74 65 6d 70 | using t|his temp|
|00001b50| 20 74 61 62 6c 65 0d 0a | 09 09 09 54 48 49 53 2e | table..|...THIS.|
|00001b60| 63 44 61 74 61 53 72 63 | 20 3d 20 54 48 49 53 2e |cDataSrc| = THIS.|
|00001b70| 63 44 61 74 61 46 69 6c | 65 0d 0a 09 09 09 2a 2d |cDataFil|e.....*-|
|00001b80| 20 72 65 64 6f 20 66 69 | 65 6c 64 20 6c 69 73 74 | redo fi|eld list|
|00001b90| 2c 20 73 69 6e 63 65 20 | 6d 61 78 20 66 6f 72 20 |, since |max for |
|00001ba0| 46 6f 78 20 32 2e 78 20 | 74 61 62 6c 65 20 69 73 |Fox 2.x |table is|
|00001bb0| 20 6f 6e 6c 79 20 31 30 | 20 63 68 61 72 73 0d 0a | only 10| chars..|
|00001bc0| 09 09 09 54 48 49 53 2e | 4d 61 6b 65 46 69 65 6c |...THIS.|MakeFiel|
|00001bd0| 64 4c 69 73 74 28 31 30 | 29 0d 0a 09 09 09 54 48 |dList(10|).....TH|
|00001be0| 49 53 2e 47 65 74 53 51 | 4c 53 74 0d 0a 09 09 45 |IS.GetSQ|LSt....E|
|00001bf0| 4e 44 49 46 0d 0a 09 09 | 55 53 45 0d 0a 0d 0a 09 |NDIF....|USE.....|
|00001c00| 09 53 45 4c 45 43 54 20 | 28 54 48 49 53 2e 63 41 |.SELECT |(THIS.cA|
|00001c10| 6c 69 61 73 29 0d 0a 0d | 0a 09 45 4c 53 45 0d 0a |lias)...|..ELSE..|
|00001c20| 09 09 54 48 49 53 2e 63 | 44 61 74 61 46 69 6c 65 |..THIS.c|DataFile|
|00001c30| 20 3d 20 44 42 46 28 29 | 0d 0a 09 09 54 48 49 53 | = DBF()|....THIS|
|00001c40| 2e 47 65 74 53 51 4c 53 | 74 0d 0a 09 45 4e 44 49 |.GetSQLS|t...ENDI|
|00001c50| 46 0d 0a 0d 0a 09 54 48 | 49 53 2e 63 53 71 6c 53 |F.....TH|IS.cSqlS|
|00001c60| 74 6d 74 20 3d 20 53 54 | 52 54 52 41 4e 28 54 48 |tmt = ST|RTRAN(TH|
|00001c70| 49 53 2e 63 53 71 6c 53 | 74 6d 74 2c 27 22 27 2c |IS.cSqlS|tmt,'"',|
|00001c80| 22 22 29 09 09 26 26 20 | 57 6f 72 64 20 63 6f 6d |"")..&& |Word com|
|00001c90| 70 6c 61 69 6e 73 20 69 | 66 20 71 75 6f 74 65 73 |plains i|f quotes|
|00001ca0| 20 73 75 72 72 6f 75 6e | 64 20 74 68 65 20 74 61 | surroun|d the ta|
|00001cb0| 62 6c 65 20 6e 61 6d 65 | 0d 0a 09 09 09 09 09 09 |ble name|........|
|00001cc0| 09 09 09 09 09 09 09 09 | 26 26 20 62 75 74 20 56 |........|&& but V|
|00001cd0| 46 50 20 77 6f 6e 27 74 | 20 65 78 65 63 75 74 65 |FP won't| execute|
|00001ce0| 20 53 51 4c 20 73 74 61 | 74 65 6d 65 6e 74 20 75 | SQL sta|tement u|
|00001cf0| 6e 6c 65 73 73 20 74 68 | 65 79 20 61 72 65 20 74 |nless th|ey are t|
|00001d00| 68 65 72 65 0d 0a 0d 0a | 09 49 46 20 54 48 49 53 |here....|.IF THIS|
|00001d10| 2e 6e 57 6f 72 64 50 72 | 6f 63 20 3d 20 4e 5f 57 |.nWordPr|oc = N_W|
|00001d20| 4f 52 44 36 30 20 41 4e | 44 20 21 5f 6d 61 63 0d |ORD60 AN|D !_mac.|
|00001d30| 0a 09 09 44 4f 20 43 41 | 53 45 0d 0a 09 09 09 43 |...DO CA|SE.....C|
|00001d40| 41 53 45 20 4c 45 4e 28 | 54 48 49 53 2e 63 73 71 |ASE LEN(|THIS.csq|
|00001d50| 6c 73 74 6d 74 29 20 3e | 20 35 31 30 0d 0a 09 09 |lstmt) >| 510....|
|00001d60| 09 09 54 48 49 53 2e 41 | 6c 65 72 74 28 43 5f 45 |..THIS.A|lert(C_E|
|00001d70| 52 52 4f 52 5f 53 51 4c | 5f 4c 4f 43 29 0d 0a 09 |RROR_SQL|_LOC)...|
|00001d80| 09 09 09 54 48 49 53 2e | 63 73 71 6c 73 74 6d 74 |...THIS.|csqlstmt|
|00001d90| 20 3d 20 22 22 09 09 09 | 26 26 20 65 72 72 6f 72 | = ""...|&& error|
|00001da0| 20 72 65 74 75 72 6e 20 | 62 65 6c 6f 77 0d 0a 09 | return |below...|
|00001db0| 09 09 43 41 53 45 20 4c | 45 4e 28 54 48 49 53 2e |..CASE L|EN(THIS.|
|00001dc0| 63 73 71 6c 73 74 6d 74 | 29 20 3e 20 32 35 35 0d |csqlstmt|) > 255.|
|00001dd0| 0a 09 09 09 09 54 48 49 | 53 2e 63 73 71 6c 73 74 |.....THI|S.csqlst|
|00001de0| 6d 74 32 20 3d 20 53 55 | 42 53 28 54 48 49 53 2e |mt2 = SU|BS(THIS.|
|00001df0| 63 73 71 6c 73 74 6d 74 | 2c 32 35 36 29 0d 0a 09 |csqlstmt|,256)...|
|00001e00| 09 09 09 54 48 49 53 2e | 63 73 71 6c 73 74 6d 74 |...THIS.|csqlstmt|
|00001e10| 20 3d 20 4c 45 46 54 28 | 54 48 49 53 2e 63 73 71 | = LEFT(|THIS.csq|
|00001e20| 6c 73 74 6d 74 2c 32 35 | 35 29 0d 0a 09 09 09 4f |lstmt,25|5).....O|
|00001e30| 54 48 45 52 57 49 53 45 | 0d 0a 09 09 09 09 2a 2d |THERWISE|......*-|
|00001e40| 20 64 6f 20 6e 6f 74 68 | 69 6e 67 0d 0a 09 09 45 | do noth|ing....E|
|00001e50| 4e 44 43 41 53 45 0d 0a | 09 45 4e 44 49 46 0d 0a |NDCASE..|.ENDIF..|
|00001e60| 0d 0a 09 49 46 20 45 4d | 50 54 59 28 54 48 49 53 |...IF EM|PTY(THIS|
|00001e70| 2e 63 73 71 6c 73 74 6d | 74 29 0d 0a 09 09 2a 2d |.csqlstm|t)....*-|
|00001e80| 20 63 6f 75 6c 64 6e 27 | 74 20 63 6f 6d 65 20 75 | couldn'|t come u|
|00001e90| 70 20 77 69 74 68 20 53 | 51 4c 20 73 74 61 74 65 |p with S|QL state|
|00001ea0| 6d 65 6e 74 0d 0a 09 09 | 52 45 54 55 52 4e 20 2e |ment....|RETURN .|
|00001eb0| 46 2e 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 09 2a |F....END|IF.....*|
|00001ec0| 2d 20 6e 65 65 64 20 74 | 6f 20 6f 70 65 6e 20 74 |- need t|o open t|
|00001ed0| 61 62 6c 65 20 61 73 20 | 73 68 61 72 65 64 20 61 |able as |shared a|
|00001ee0| 63 63 65 73 73 0d 0a 09 | 49 46 20 49 53 45 58 43 |ccess...|IF ISEXC|
|00001ef0| 4c 55 53 49 56 45 28 29 | 20 41 4e 44 20 43 55 52 |LUSIVE()| AND CUR|
|00001f00| 53 4f 52 47 45 54 50 52 | 4f 50 28 27 73 6f 75 72 |SORGETPR|OP('sour|
|00001f10| 63 65 74 79 70 65 27 29 | 20 3d 20 4b 5f 54 41 42 |cetype')| = K_TAB|
|00001f20| 4c 45 0d 0a 09 09 55 53 | 45 20 49 4e 20 28 54 48 |LE....US|E IN (TH|
|00001f30| 49 53 2e 63 41 6c 69 61 | 73 29 0d 0a 09 09 6d 2e |IS.cAlia|s)....m.|
|00001f40| 69 46 48 20 3d 20 46 4f | 50 45 4e 28 54 48 49 53 |iFH = FO|PEN(THIS|
|00001f50| 2e 63 44 61 74 61 46 69 | 6c 65 2c 30 29 0d 0a 09 |.cDataFi|le,0)...|
|00001f60| 09 49 46 20 6d 2e 69 46 | 48 20 3d 3d 20 2d 31 0d |.IF m.iF|H == -1.|
|00001f70| 0a 09 09 09 2a 2d 20 63 | 61 6e 27 74 20 6f 70 65 |....*- c|an't ope|
|00001f80| 6e 20 66 69 6c 65 2c 20 | 73 6f 20 66 61 69 6c 0d |n file, |so fail.|
|00001f90| 0a 09 09 09 54 48 49 53 | 2e 41 4c 45 52 54 28 45 |....THIS|.ALERT(E|
|00001fa0| 5f 4e 4f 4f 50 45 4e 54 | 42 4c 5f 4c 4f 43 29 0d |_NOOPENT|BL_LOC).|
|00001fb0| 0a 09 09 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |....RETU|RN .F...|
|00001fc0| 09 09 45 4c 53 45 0d 0a | 09 09 09 3d 46 43 4c 4f |..ELSE..|...=FCLO|
|00001fd0| 53 45 28 6d 2e 69 46 48 | 29 0d 0a 09 09 45 4e 44 |SE(m.iFH|)....END|
|00001fe0| 49 46 0d 0a 09 09 55 53 | 45 20 28 54 48 49 53 2e |IF....US|E (THIS.|
|00001ff0| 63 44 61 74 61 46 69 6c | 65 29 20 41 4c 49 41 53 |cDataFil|e) ALIAS|
|00002000| 20 28 54 48 49 53 2e 63 | 41 6c 69 61 73 29 20 53 | (THIS.c|Alias) S|
|00002010| 48 41 52 45 44 0d 0a 09 | 45 4e 44 49 46 0d 0a 0d |HARED...|ENDIF...|
|00002020| 0a 09 2a 2d 20 47 65 74 | 20 64 61 74 61 20 2d 2d |..*- Get| data --|
|00002030| 20 73 68 6f 75 6c 64 20 | 75 73 65 20 73 61 6d 65 | should |use same|
|00002040| 20 64 69 72 65 63 74 6f | 72 79 20 61 73 20 66 6f | directo|ry as fo|
|00002050| 78 70 72 6f 20 74 61 62 | 6c 65 0d 0a 09 53 45 4c |xpro tab|le...SEL|
|00002060| 45 43 54 20 28 54 48 49 | 53 2e 63 41 6c 69 61 73 |ECT (THI|S.cAlias|
|00002070| 29 0d 0a 09 6d 2e 63 44 | 42 51 50 61 74 68 20 3d |)...m.cD|BQPath =|
|00002080| 20 49 49 46 28 45 4d 50 | 54 59 28 54 48 49 53 2e | IIF(EMP|TY(THIS.|
|00002090| 63 44 61 74 61 50 61 74 | 68 29 2c 53 59 53 28 32 |cDataPat|h),SYS(2|
|000020a0| 30 32 37 2c 53 45 54 28 | 22 44 45 46 41 22 29 20 |027,SET(|"DEFA") |
|000020b0| 2b 20 53 59 53 28 32 30 | 30 33 29 29 2c 54 48 49 |+ SYS(20|03)),THI|
|000020c0| 53 2e 63 44 61 74 61 50 | 61 74 68 29 0d 0a 0d 0a |S.cDataP|ath)....|
|000020d0| 09 49 46 20 54 48 49 53 | 2e 6c 48 61 73 33 30 44 |.IF THIS|.lHas30D|
|000020e0| 72 69 76 65 72 73 0d 0a | 09 09 54 48 49 53 2e 63 |rivers..|..THIS.c|
|000020f0| 4f 44 42 43 53 6f 75 72 | 63 65 20 3d 20 22 44 53 |ODBCSour|ce = "DS|
|00002100| 4e 3d 22 2b 54 48 49 53 | 2e 63 4f 44 42 43 5f 44 |N="+THIS|.cODBC_D|
|00002110| 53 4e 2b 3b 0d 0a 09 09 | 09 09 09 20 22 3b 53 6f |SN+;....|... ";So|
|00002120| 75 72 63 65 44 42 3d 22 | 2b 49 49 46 28 45 4d 50 |urceDB="|+IIF(EMP|
|00002130| 54 59 28 54 48 49 53 2e | 63 44 42 43 4e 61 6d 65 |TY(THIS.|cDBCName|
|00002140| 29 2c 6d 2e 63 44 42 51 | 50 61 74 68 2c 54 48 49 |),m.cDBQ|Path,THI|
|00002150| 53 2e 63 44 42 43 4e 61 | 6d 65 29 2b 3b 0d 0a 09 |S.cDBCNa|me)+;...|
|00002160| 09 09 09 09 20 22 3b 53 | 6f 75 72 63 65 54 79 70 |.... ";S|ourceTyp|
|00002170| 65 3d 22 2b 49 49 46 28 | 45 4d 50 54 59 28 54 48 |e="+IIF(|EMPTY(TH|
|00002180| 49 53 2e 63 44 42 43 4e | 61 6d 65 29 2c 22 44 42 |IS.cDBCN|ame),"DB|
|00002190| 46 22 2c 22 44 42 43 22 | 29 2b 3b 0d 0a 09 09 09 |F","DBC"|)+;.....|
|000021a0| 09 09 20 22 3b 45 78 63 | 6c 75 73 69 76 65 3d 4e |.. ";Exc|lusive=N|
|000021b0| 6f 22 2b 3b 0d 0a 09 09 | 09 09 09 20 22 3b 42 61 |o"+;....|... ";Ba|
|000021c0| 63 6b 67 72 6f 75 6e 64 | 46 65 74 63 68 3d 59 65 |ckground|Fetch=Ye|
|000021d0| 73 3b 22 0d 0a 20 20 20 | 20 45 4c 53 45 0d 0a 09 |s;".. | ELSE...|
|000021e0| 09 54 48 49 53 2e 63 4f | 44 42 43 53 6f 75 72 63 |.THIS.cO|DBCSourc|
|000021f0| 65 20 3d 09 22 44 53 4e | 3d 22 20 2b 20 54 48 49 |e =."DSN|=" + THI|
|00002200| 53 2e 63 4f 44 42 43 5f | 44 53 4e 20 2b 20 3b 0d |S.cODBC_|DSN + ;.|
|00002210| 0a 09 09 09 09 09 09 22 | 3b 44 42 51 3d 22 20 2b |......."|;DBQ=" +|
|00002220| 20 6d 2e 63 44 42 51 50 | 61 74 68 20 2b 20 3b 0d | m.cDBQP|ath + ;.|
|00002230| 0a 09 09 09 09 09 09 22 | 3b 44 65 66 61 75 6c 74 |......."|;Default|
|00002240| 44 69 72 3d 22 20 2b 20 | 6d 2e 63 44 42 51 50 61 |Dir=" + |m.cDBQPa|
|00002250| 74 68 20 2b 20 3b 0d 0a | 09 09 09 09 09 09 22 3b |th + ;..|......";|
|00002260| 46 49 4c 3d 22 20 2b 20 | 54 48 49 53 2e 63 4f 44 |FIL=" + |THIS.cOD|
|00002270| 42 43 5f 46 49 4c 20 2b | 22 3b 22 0d 0a 09 45 4e |BC_FIL +|";"...EN|
|00002280| 44 49 46 0d 0a 0d 0a 0d | 0a 45 4e 44 50 52 4f 43 |DIF.....|.ENDPROC|
|00002290| 0d 0a 50 52 4f 43 45 44 | 55 52 45 20 6d 61 69 6c |..PROCED|URE mail|
|000022a0| 6d 65 72 67 65 77 6f 72 | 64 38 0d 0a 09 2a 2d 20 |mergewor|d8...*- |
|000022b0| 64 72 69 76 65 20 4d 53 | 20 57 6f 72 64 20 38 2e |drive MS| Word 8.|
|000022c0| 30 0d 0a 0d 0a 09 50 52 | 49 56 41 54 45 20 63 6f |0.....PR|IVATE co|
|000022d0| 6c 64 64 6f 63 73 2c 20 | 77 61 0d 0a 09 4c 4f 43 |lddocs, |wa...LOC|
|000022e0| 41 4c 20 63 44 75 6d 6d | 79 2c 20 6e 57 6f 72 64 |AL cDumm|y, nWord|
|000022f0| 44 6f 63 54 79 70 65 2c | 20 63 53 71 6c 53 74 6d |DocType,| cSqlStm|
|00002300| 74 2c 20 63 4f 44 42 43 | 53 6f 75 72 63 65 2c 20 |t, cODBC|Source, |
|00002310| 63 44 42 51 50 61 74 68 | 0d 0a 09 4c 4f 43 41 4c |cDBQPath|...LOCAL|
|00002320| 20 6f 44 6f 63 0d 0a 0d | 0a 09 2a 2d 20 57 65 20 | oDoc...|..*- We |
|00002330| 6e 65 65 64 20 74 6f 20 | 73 65 74 20 74 68 65 20 |need to |set the |
|00002340| 4c 6f 63 61 6c 69 7a 61 | 74 69 6f 6e 20 49 44 20 |Localiza|tion ID |
|00002350| 74 6f 20 65 6e 67 6c 69 | 73 68 20 28 31 30 33 33 |to engli|sh (1033|
|00002360| 29 0d 0a 09 2a 2d 20 73 | 6f 20 74 68 61 74 20 4f |)...*- s|o that O|
|00002370| 4c 45 20 41 75 74 6f 6d | 61 74 69 6f 6e 20 77 69 |LE Autom|ation wi|
|00002380| 6c 6c 20 62 65 20 75 6e | 64 65 72 73 74 6f 6f 64 |ll be un|derstood|
|00002390| 20 62 79 20 4f 4c 45 20 | 73 65 72 76 65 72 2e 0d | by OLE |server..|
|000023a0| 0a 09 3d 53 59 53 28 33 | 30 30 36 2c 49 5f 45 4e |..=SYS(3|006,I_EN|
|000023b0| 47 4c 49 53 48 29 0d 0a | 0d 0a 09 57 41 49 54 20 |GLISH)..|...WAIT |
|000023c0| 57 49 4e 44 4f 57 20 43 | 5f 53 54 41 52 54 57 4f |WINDOW C|_STARTWO|
|000023d0| 52 44 38 30 5f 4c 4f 43 | 20 4e 4f 57 41 49 54 0d |RD80_LOC| NOWAIT.|
|000023e0| 0a 09 2a 2d 20 63 72 65 | 61 74 65 20 77 6f 72 64 |..*- cre|ate word|
|000023f0| 20 6f 62 6a 65 63 74 0d | 0a 09 77 61 20 3d 20 43 | object.|..wa = C|
|00002400| 72 65 61 74 65 4f 62 6a | 65 63 74 28 57 49 4e 5f |reateObj|ect(WIN_|
|00002410| 38 4f 42 4a 29 0d 0a 0d | 0a 09 2a 2d 20 43 68 65 |8OBJ)...|..*- Che|
|00002420| 63 6b 20 69 66 20 70 72 | 6f 62 6c 65 6d 20 63 72 |ck if pr|oblem cr|
|00002430| 65 61 74 69 6e 67 20 57 | 6f 72 64 20 6f 62 6a 65 |eating W|ord obje|
|00002440| 63 74 0d 0a 09 49 46 20 | 54 59 50 45 28 27 77 61 |ct...IF |TYPE('wa|
|00002450| 27 29 20 23 20 27 4f 27 | 0d 0a 09 09 54 48 49 53 |') # 'O'|....THIS|
|00002460| 2e 41 4c 45 52 54 28 45 | 5f 4e 4f 4f 50 45 4e 57 |.ALERT(E|_NOOPENW|
|00002470| 4f 52 44 5f 4c 4f 43 29 | 0d 0a 09 09 52 45 54 55 |ORD_LOC)|....RETU|
|00002480| 52 4e 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 09 2a |RN...END|IF.....*|
|00002490| 2d 20 54 65 73 74 20 6c | 61 6e 67 75 61 67 65 0d |- Test l|anguage.|
|000024a0| 0a 09 54 48 49 53 2e 6c | 45 6e 67 6c 69 73 68 20 |..THIS.l|English |
|000024b0| 3d 20 28 77 61 2e 61 70 | 70 6c 69 63 61 74 69 6f |= (wa.ap|plicatio|
|000024c0| 6e 2e 69 6e 74 65 72 6e | 61 74 69 6f 6e 61 6c 5b |n.intern|ational[|
|000024d0| 32 36 5d 20 3d 3d 20 49 | 5f 45 4e 47 4c 49 53 48 |26] == I|_ENGLISH|
|000024e0| 29 0d 0a 0d 0a 09 2a 2d | 20 47 65 74 20 64 61 74 |).....*-| Get dat|
|000024f0| 61 20 2d 2d 20 73 68 6f | 75 6c 64 20 75 73 65 20 |a -- sho|uld use |
|00002500| 73 61 6d 65 20 64 69 72 | 65 63 74 6f 72 79 20 61 |same dir|ectory a|
|00002510| 73 20 66 6f 78 70 72 6f | 20 74 61 62 6c 65 0d 0a |s foxpro| table..|
|00002520| 09 53 45 4c 45 43 54 20 | 28 54 48 49 53 2e 63 41 |.SELECT |(THIS.cA|
|00002530| 6c 69 61 73 29 0d 0a 09 | 6d 2e 63 44 42 51 50 61 |lias)...|m.cDBQPa|
|00002540| 74 68 20 3d 20 49 49 46 | 28 45 4d 50 54 59 28 54 |th = IIF|(EMPTY(T|
|00002550| 48 49 53 2e 63 44 61 74 | 61 50 61 74 68 29 2c 53 |HIS.cDat|aPath),S|
|00002560| 59 53 28 32 30 32 37 2c | 53 45 54 28 22 44 45 46 |YS(2027,|SET("DEF|
|00002570| 41 22 29 20 2b 20 53 59 | 53 28 32 30 30 33 29 29 |A") + SY|S(2003))|
|00002580| 2c 54 48 49 53 2e 63 44 | 61 74 61 50 61 74 68 29 |,THIS.cD|ataPath)|
|00002590| 0d 0a 0d 0a 09 49 46 20 | 54 48 49 53 2e 6c 48 61 |.....IF |THIS.lHa|
|000025a0| 73 33 30 44 72 69 76 65 | 72 73 0d 0a 09 09 63 4f |s30Drive|rs....cO|
|000025b0| 44 42 43 53 6f 75 72 63 | 65 20 3d 20 22 44 53 4e |DBCSourc|e = "DSN|
|000025c0| 3d 22 2b 54 48 49 53 2e | 63 4f 44 42 43 5f 44 53 |="+THIS.|cODBC_DS|
|000025d0| 4e 2b 3b 0d 0a 09 09 09 | 09 09 20 22 3b 53 6f 75 |N+;.....|.. ";Sou|
|000025e0| 72 63 65 44 42 3d 22 2b | 49 49 46 28 45 4d 50 54 |rceDB="+|IIF(EMPT|
|000025f0| 59 28 54 48 49 53 2e 63 | 44 42 43 4e 61 6d 65 29 |Y(THIS.c|DBCName)|
|00002600| 2c 6d 2e 63 44 42 51 50 | 61 74 68 2c 54 48 49 53 |,m.cDBQP|ath,THIS|
|00002610| 2e 63 44 42 43 4e 61 6d | 65 29 2b 3b 0d 0a 09 09 |.cDBCNam|e)+;....|
|00002620| 09 09 09 20 22 3b 53 6f | 75 72 63 65 54 79 70 65 |... ";So|urceType|
|00002630| 3d 22 2b 49 49 46 28 45 | 4d 50 54 59 28 54 48 49 |="+IIF(E|MPTY(THI|
|00002640| 53 2e 63 44 42 43 4e 61 | 6d 65 29 2c 22 44 42 46 |S.cDBCNa|me),"DBF|
|00002650| 22 2c 22 44 42 43 22 29 | 2b 3b 0d 0a 09 09 09 09 |","DBC")|+;......|
|00002660| 09 20 22 3b 45 78 63 6c | 75 73 69 76 65 3d 4e 6f |. ";Excl|usive=No|
|00002670| 22 2b 3b 0d 0a 09 09 09 | 09 09 20 22 3b 42 61 63 |"+;.....|.. ";Bac|
|00002680| 6b 67 72 6f 75 6e 64 46 | 65 74 63 68 3d 59 65 73 |kgroundF|etch=Yes|
|00002690| 3b 22 0d 0a 20 20 20 20 | 45 4c 53 45 0d 0a 09 09 |;".. |ELSE....|
|000026a0| 63 4f 44 42 43 53 6f 75 | 72 63 65 20 3d 09 22 44 |cODBCSou|rce =."D|
|000026b0| 53 4e 3d 22 20 2b 20 54 | 48 49 53 2e 63 4f 44 42 |SN=" + T|HIS.cODB|
|000026c0| 43 5f 44 53 4e 20 2b 20 | 3b 0d 0a 09 09 09 09 09 |C_DSN + |;.......|
|000026d0| 09 22 3b 44 42 51 3d 22 | 20 2b 20 6d 2e 63 44 42 |.";DBQ="| + m.cDB|
|000026e0| 51 50 61 74 68 20 2b 20 | 3b 0d 0a 09 09 09 09 09 |QPath + |;.......|
|000026f0| 09 22 3b 44 65 66 61 75 | 6c 74 44 69 72 3d 22 20 |.";Defau|ltDir=" |
|00002700| 2b 20 6d 2e 63 44 42 51 | 50 61 74 68 20 2b 20 3b |+ m.cDBQ|Path + ;|
|00002710| 0d 0a 09 09 09 09 09 09 | 22 3b 46 49 4c 3d 22 20 |........|";FIL=" |
|00002720| 2b 20 54 48 49 53 2e 63 | 4f 44 42 43 5f 46 49 4c |+ THIS.c|ODBC_FIL|
|00002730| 20 2b 22 3b 22 0d 0a 09 | 45 4e 44 49 46 0d 0a 0d | +";"...|ENDIF...|
|00002740| 0a 09 49 46 20 54 48 49 | 53 2e 6e 4e 65 77 44 6f |..IF THI|S.nNewDo|
|00002750| 63 20 3d 20 4e 5f 45 58 | 49 53 54 49 4e 47 5f 44 |c = N_EX|ISTING_D|
|00002760| 4f 43 0d 0a 09 09 6f 44 | 6f 63 20 3d 20 77 61 2e |OC....oD|oc = wa.|
|00002770| 64 6f 63 75 6d 65 6e 74 | 73 2e 4f 70 65 6e 28 54 |document|s.Open(T|
|00002780| 48 49 53 2e 63 44 6f 63 | 4e 61 6d 65 29 0d 0a 09 |HIS.cDoc|Name)...|
|00002790| 45 4c 53 45 0d 0a 09 09 | 6f 44 6f 63 20 3d 20 77 |ELSE....|oDoc = w|
|000027a0| 61 2e 64 6f 63 75 6d 65 | 6e 74 73 2e 41 64 64 0d |a.docume|nts.Add.|
|000027b0| 0a 09 09 2a 2d 20 73 65 | 74 20 6d 61 69 6e 20 64 |...*- se|t main d|
|000027c0| 6f 63 75 6d 65 6e 74 20 | 74 79 70 65 0d 0a 09 09 |ocument |type....|
|000027d0| 44 4f 20 43 41 53 45 0d | 0a 09 09 09 43 41 53 45 |DO CASE.|....CASE|
|000027e0| 20 54 48 49 53 2e 6e 54 | 65 6d 70 6c 61 74 65 20 | THIS.nT|emplate |
|000027f0| 3d 20 4e 5f 4c 41 42 45 | 4c 0d 0a 09 09 09 09 6d |= N_LABE|L......m|
|00002800| 2e 6e 57 6f 72 64 44 6f | 63 54 79 70 65 20 3d 20 |.nWordDo|cType = |
|00002810| 31 0d 0a 09 09 09 43 41 | 53 45 20 54 48 49 53 2e |1.....CA|SE THIS.|
|00002820| 6e 54 65 6d 70 6c 61 74 | 65 20 3d 20 4e 5f 45 4e |nTemplat|e = N_EN|
|00002830| 56 45 4c 4f 50 45 0d 0a | 09 09 09 09 6d 2e 6e 57 |VELOPE..|....m.nW|
|00002840| 6f 72 64 44 6f 63 54 79 | 70 65 20 3d 20 32 0d 0a |ordDocTy|pe = 2..|
|00002850| 09 09 09 43 41 53 45 20 | 54 48 49 53 2e 6e 54 65 |...CASE |THIS.nTe|
|00002860| 6d 70 6c 61 74 65 20 3d | 20 4e 5f 43 41 54 41 4c |mplate =| N_CATAL|
|00002870| 4f 47 0d 0a 09 09 09 09 | 6d 2e 6e 57 6f 72 64 44 |OG......|m.nWordD|
|00002880| 6f 63 54 79 70 65 20 3d | 20 33 0d 0a 09 09 09 4f |ocType =| 3.....O|
|00002890| 54 48 45 52 57 49 53 45 | 0d 0a 09 09 09 09 6d 2e |THERWISE|......m.|
|000028a0| 6e 57 6f 72 64 44 6f 63 | 54 79 70 65 20 3d 20 30 |nWordDoc|Type = 0|
|000028b0| 0d 0a 09 09 45 4e 44 43 | 41 53 45 0d 0a 09 09 6f |....ENDC|ASE....o|
|000028c0| 44 6f 63 2e 4d 61 69 6c | 4d 65 72 67 65 2e 4d 61 |Doc.Mail|Merge.Ma|
|000028d0| 69 6e 44 6f 63 75 6d 65 | 6e 74 54 79 70 65 20 3d |inDocume|ntType =|
|000028e0| 20 6d 2e 6e 57 6f 72 64 | 44 6f 63 54 79 70 65 0d | m.nWord|DocType.|
|000028f0| 0a 09 45 4e 44 49 46 0d | 0a 0d 0a 09 57 41 49 54 |..ENDIF.|....WAIT|
|00002900| 20 57 49 4e 44 4f 57 20 | 43 5f 4f 50 45 4e 44 41 | WINDOW |C_OPENDA|
|00002910| 54 41 38 30 5f 4c 4f 43 | 20 4e 4f 57 41 49 54 0d |TA80_LOC| NOWAIT.|
|00002920| 0a 0d 0a 09 2a 2d 20 61 | 74 74 61 63 68 20 64 61 |....*- a|ttach da|
|00002930| 74 61 20 66 69 6c 65 0d | 0a 09 6f 44 6f 63 2e 4d |ta file.|..oDoc.M|
|00002940| 61 69 6c 4d 65 72 67 65 | 2e 4f 70 65 6e 44 61 74 |ailMerge|.OpenDat|
|00002950| 61 53 6f 75 72 63 65 28 | 54 48 49 53 2e 63 44 61 |aSource(|THIS.cDa|
|00002960| 74 61 53 72 63 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |taSrc,0,|0,0,0,0,|
|00002970| 22 22 2c 22 22 2c 30 2c | 22 22 2c 22 22 2c 6d 2e |"","",0,|"","",m.|
|00002980| 63 4f 44 42 43 53 6f 75 | 72 63 65 2c 3b 0d 0a 09 |cODBCSou|rce,;...|
|00002990| 09 54 48 49 53 2e 63 73 | 71 6c 73 74 6d 74 2c 20 |.THIS.cs|qlstmt, |
|000029a0| 54 48 49 53 2e 63 73 71 | 6c 73 74 6d 74 32 29 0d |THIS.csq|lstmt2).|
|000029b0| 0a 0d 0a 09 57 41 49 54 | 20 43 4c 45 41 52 0d 0a |....WAIT| CLEAR..|
|000029c0| 09 0d 0a 09 2a 2d 20 61 | 63 74 69 76 61 74 65 20 |....*- a|ctivate |
|000029d0| 4d 53 57 20 77 69 74 68 | 20 70 72 6f 70 65 72 20 |MSW with| proper |
|000029e0| 64 6f 63 75 6d 65 6e 74 | 0d 0a 09 77 61 2e 56 69 |document|...wa.Vi|
|000029f0| 73 69 62 6c 65 20 3d 20 | 2e 54 2e 0d 0a 09 77 61 |sible = |.T....wa|
|00002a00| 2e 41 63 74 69 76 61 74 | 65 0d 0a 09 0d 0a 09 49 |.Activat|e......I|
|00002a10| 46 20 54 48 49 53 2e 6e | 4e 65 77 44 6f 63 20 3d |F THIS.n|NewDoc =|
|00002a20| 20 4e 5f 4e 45 57 5f 44 | 4f 43 0d 0a 09 09 2a 2d | N_NEW_D|OC....*-|
|00002a30| 20 64 69 73 70 6c 61 79 | 20 57 6f 72 64 20 4d 61 | display| Word Ma|
|00002a40| 69 6c 4d 65 72 67 65 48 | 65 6c 70 65 72 20 64 69 |ilMergeH|elper di|
|00002a50| 61 6c 6f 67 0d 0a 09 09 | 49 46 20 54 48 49 53 2e |alog....|IF THIS.|
|00002a60| 6e 54 65 6d 70 6c 61 74 | 65 20 23 20 4e 5f 46 4f |nTemplat|e # N_FO|
|00002a70| 52 4d 4c 45 54 54 45 52 | 0d 0a 09 09 09 77 61 2e |RMLETTER|.....wa.|
|00002a80| 44 69 61 6c 6f 67 73 5b | 49 5f 57 44 44 49 41 4c |Dialogs[|I_WDDIAL|
|00002a90| 4f 47 4d 41 49 4c 4d 45 | 52 47 45 48 45 4c 50 45 |OGMAILME|RGEHELPE|
|00002aa0| 52 5d 2e 53 68 6f 77 0d | 0a 09 09 45 4e 44 49 46 |R].Show.|...ENDIF|
|00002ab0| 0d 0a 09 45 4e 44 49 46 | 0d 0a 0d 0a 09 2a 2d 20 |...ENDIF|.....*- |
|00002ac0| 74 65 72 6d 69 6e 61 74 | 65 20 74 68 65 20 63 6f |terminat|e the co|
|00002ad0| 6e 6e 65 63 74 69 6f 6e | 0d 0a 09 77 61 20 3d 20 |nnection|...wa = |
|00002ae0| 2e 4e 55 4c 4c 2e 0d 0a | 0d 0a 09 52 45 54 55 52 |.NULL...|...RETUR|
|00002af0| 4e 0d 0a 0d 0a 0d 0a 45 | 4e 44 50 52 4f 43 0d 0a |N......E|NDPROC..|
|00002b00| 50 52 4f 43 45 44 55 52 | 45 20 6d 61 69 6c 6d 65 |PROCEDUR|E mailme|
|00002b10| 72 67 65 77 6f 72 64 36 | 0d 0a 09 2a 2d 20 64 72 |rgeword6|...*- dr|
|00002b20| 69 76 65 20 4d 53 20 57 | 6f 72 64 20 36 2e 30 0d |ive MS W|ord 6.0.|
|00002b30| 0a 09 23 49 4e 43 4c 55 | 44 45 20 64 64 65 63 6d |..#INCLU|DE ddecm|
|00002b40| 64 2e 68 0d 0a 09 0d 0a | 09 50 52 49 56 41 54 45 |d.h.....|.PRIVATE|
|00002b50| 20 63 6f 6c 64 64 6f 63 | 73 2c 20 77 61 0d 0a 09 | colddoc|s, wa...|
|00002b60| 4c 4f 43 41 4c 20 63 44 | 75 6d 6d 79 2c 20 6e 57 |LOCAL cD|ummy, nW|
|00002b70| 6f 72 64 44 6f 63 54 79 | 70 65 2c 20 63 53 71 6c |ordDocTy|pe, cSql|
|00002b80| 53 74 6d 74 2c 20 63 4f | 44 42 43 53 6f 75 72 63 |Stmt, cO|DBCSourc|
|00002b90| 65 2c 20 63 44 42 51 50 | 61 74 68 0d 0a 0d 0a 09 |e, cDBQP|ath.....|
|00002ba0| 2a 2d 20 6c 61 75 6e 63 | 68 20 4d 53 57 2c 20 73 |*- launc|h MSW, s|
|00002bb0| 6f 20 69 74 20 68 61 6e | 67 73 20 61 72 6f 75 6e |o it han|gs aroun|
|00002bc0| 64 20 61 66 74 65 72 20 | 77 6f 72 64 2e 62 61 73 |d after |word.bas|
|00002bd0| 69 63 20 69 73 20 64 6f | 6e 65 0d 0a 09 49 46 20 |ic is do|ne...IF |
|00002be0| 21 54 48 49 53 2e 53 74 | 61 72 74 57 6f 72 64 28 |!THIS.St|artWord(|
|00002bf0| 43 5f 57 4f 52 44 36 29 | 0d 0a 09 09 52 45 54 55 |C_WORD6)|....RETU|
|00002c00| 52 4e 20 2e 46 2e 0d 0a | 09 45 4c 53 45 0d 0a 09 |RN .F...|.ELSE...|
|00002c10| 09 2a 2d 20 57 65 20 6e | 65 65 64 20 74 6f 20 73 |.*- We n|eed to s|
|00002c20| 65 74 20 74 68 65 20 4c | 6f 63 61 6c 69 7a 61 74 |et the L|ocalizat|
|00002c30| 69 6f 6e 20 49 44 20 74 | 6f 20 65 6e 67 6c 69 73 |ion ID t|o englis|
|00002c40| 68 20 28 31 30 33 33 29 | 0d 0a 09 09 2a 2d 20 73 |h (1033)|....*- s|
|00002c50| 6f 20 74 68 61 74 20 4f | 4c 45 20 41 75 74 6f 6d |o that O|LE Autom|
|00002c60| 61 74 69 6f 6e 20 77 69 | 6c 6c 20 62 65 20 75 6e |ation wi|ll be un|
|00002c70| 64 65 72 73 74 6f 6f 64 | 20 62 79 20 4f 4c 45 20 |derstood| by OLE |
|00002c80| 73 65 72 76 65 72 2e 0d | 0a 09 09 3d 53 59 53 28 |server..|...=SYS(|
|00002c90| 33 30 30 36 2c 49 5f 45 | 4e 47 4c 49 53 48 29 0d |3006,I_E|NGLISH).|
|00002ca0| 0a 09 45 4e 44 49 46 0d | 0a 09 0d 0a 09 2a 2d 20 |..ENDIF.|.....*- |
|00002cb0| 63 72 65 61 74 65 20 77 | 6f 72 64 20 6f 62 6a 65 |create w|ord obje|
|00002cc0| 63 74 0d 0a 09 77 61 20 | 3d 20 43 72 65 61 74 65 |ct...wa |= Create|
|00002cd0| 4f 62 6a 65 63 74 28 57 | 49 4e 5f 36 4f 42 4a 29 |Object(W|IN_6OBJ)|
|00002ce0| 0d 0a 0d 0a 09 2a 2d 20 | 43 68 65 63 6b 20 69 66 |.....*- |Check if|
|00002cf0| 20 70 72 6f 62 6c 65 6d | 20 63 72 65 61 74 69 6e | problem| creatin|
|00002d00| 67 20 57 6f 72 64 20 6f | 62 6a 65 63 74 0d 0a 09 |g Word o|bject...|
|00002d10| 49 46 20 54 59 50 45 28 | 27 77 61 27 29 20 23 20 |IF TYPE(|'wa') # |
|00002d20| 27 4f 27 0d 0a 09 09 54 | 48 49 53 2e 41 4c 45 52 |'O'....T|HIS.ALER|
|00002d30| 54 28 45 5f 4e 4f 4f 50 | 45 4e 57 4f 52 44 5f 4c |T(E_NOOP|ENWORD_L|
|00002d40| 4f 43 29 0d 0a 09 09 52 | 45 54 55 52 4e 0d 0a 09 |OC)....R|ETURN...|
|00002d50| 45 4e 44 49 46 0d 0a 0d | 0a 09 2a 2d 20 54 65 73 |ENDIF...|..*- Tes|
|00002d60| 74 20 6c 61 6e 67 75 61 | 67 65 0d 0a 09 54 48 49 |t langua|ge...THI|
|00002d70| 53 2e 6c 45 6e 67 6c 69 | 73 68 20 3d 20 2e 54 2e |S.lEngli|sh = .T.|
|00002d80| 0d 0a 09 54 48 49 53 2e | 53 65 74 45 72 72 6f 72 |...THIS.|SetError|
|00002d90| 4f 66 66 20 3d 20 2e 74 | 2e 0d 0a 09 6d 2e 63 64 |Off = .t|....m.cd|
|00002da0| 75 6d 6d 79 20 3d 20 77 | 61 2e 41 70 70 49 6e 66 |ummy = w|a.AppInf|
|00002db0| 6f 28 31 36 29 0d 0a 09 | 49 46 20 54 48 49 53 2e |o(16)...|IF THIS.|
|00002dc0| 48 61 64 45 72 72 6f 72 | 0d 0a 09 09 54 48 49 53 |HadError|....THIS|
|00002dd0| 2e 6c 45 6e 67 6c 69 73 | 68 20 3d 20 2e 66 2e 0d |.lEnglis|h = .f..|
|00002de0| 0a 09 09 54 48 49 53 2e | 48 61 64 45 72 72 6f 72 |...THIS.|HadError|
|00002df0| 20 3d 20 2e 66 2e 0d 0a | 09 45 4e 44 49 46 0d 0a | = .f...|.ENDIF..|
|00002e00| 09 54 48 49 53 2e 53 65 | 74 45 72 72 6f 72 4f 66 |.THIS.Se|tErrorOf|
|00002e10| 66 20 3d 20 2e 66 2e 0d | 0a 0d 0a 09 2a 2d 20 47 |f = .f..|....*- G|
|00002e20| 65 74 20 64 61 74 61 20 | 2d 2d 20 73 68 6f 75 6c |et data |-- shoul|
|00002e30| 64 20 75 73 65 20 73 61 | 6d 65 20 64 69 72 65 63 |d use sa|me direc|
|00002e40| 74 6f 72 79 20 61 73 20 | 66 6f 78 70 72 6f 20 74 |tory as |foxpro t|
|00002e50| 61 62 6c 65 0d 0a 09 53 | 45 4c 45 43 54 20 28 54 |able...S|ELECT (T|
|00002e60| 48 49 53 2e 63 41 6c 69 | 61 73 29 0d 0a 09 6d 2e |HIS.cAli|as)...m.|
|00002e70| 63 44 42 51 50 61 74 68 | 20 3d 20 49 49 46 28 45 |cDBQPath| = IIF(E|
|00002e80| 4d 50 54 59 28 54 48 49 | 53 2e 63 44 61 74 61 50 |MPTY(THI|S.cDataP|
|00002e90| 61 74 68 29 2c 53 59 53 | 28 32 30 32 37 2c 53 45 |ath),SYS|(2027,SE|
|00002ea0| 54 28 22 44 45 46 41 22 | 29 20 2b 20 53 59 53 28 |T("DEFA"|) + SYS(|
|00002eb0| 32 30 30 33 29 29 2c 54 | 48 49 53 2e 63 44 61 74 |2003)),T|HIS.cDat|
|00002ec0| 61 50 61 74 68 29 0d 0a | 0d 0a 09 49 46 20 54 48 |aPath)..|...IF TH|
|00002ed0| 49 53 2e 6c 48 61 73 33 | 30 44 72 69 76 65 72 73 |IS.lHas3|0Drivers|
|00002ee0| 0d 0a 09 09 63 4f 44 42 | 43 53 6f 75 72 63 65 20 |....cODB|CSource |
|00002ef0| 3d 20 22 44 53 4e 3d 22 | 2b 54 48 49 53 2e 63 4f |= "DSN="|+THIS.cO|
|00002f00| 44 42 43 5f 44 53 4e 2b | 3b 0d 0a 09 09 09 09 09 |DBC_DSN+|;.......|
|00002f10| 20 22 3b 53 6f 75 72 63 | 65 44 42 3d 22 2b 49 49 | ";Sourc|eDB="+II|
|00002f20| 46 28 45 4d 50 54 59 28 | 54 48 49 53 2e 63 44 42 |F(EMPTY(|THIS.cDB|
|00002f30| 43 4e 61 6d 65 29 2c 6d | 2e 63 44 42 51 50 61 74 |CName),m|.cDBQPat|
|00002f40| 68 2c 54 48 49 53 2e 63 | 44 42 43 4e 61 6d 65 29 |h,THIS.c|DBCName)|
|00002f50| 2b 3b 0d 0a 09 09 09 09 | 09 20 22 3b 53 6f 75 72 |+;......|. ";Sour|
|00002f60| 63 65 54 79 70 65 3d 22 | 2b 49 49 46 28 45 4d 50 |ceType="|+IIF(EMP|
|00002f70| 54 59 28 54 48 49 53 2e | 63 44 42 43 4e 61 6d 65 |TY(THIS.|cDBCName|
|00002f80| 29 2c 22 44 42 46 22 2c | 22 44 42 43 22 29 2b 3b |),"DBF",|"DBC")+;|
|00002f90| 0d 0a 09 09 09 09 09 20 | 22 3b 45 78 63 6c 75 73 |....... |";Exclus|
|00002fa0| 69 76 65 3d 4e 6f 22 2b | 3b 0d 0a 09 09 09 09 09 |ive=No"+|;.......|
|00002fb0| 20 22 3b 42 61 63 6b 67 | 72 6f 75 6e 64 46 65 74 | ";Backg|roundFet|
|00002fc0| 63 68 3d 59 65 73 3b 22 | 0d 0a 20 20 20 20 45 4c |ch=Yes;"|.. EL|
|00002fd0| 53 45 0d 0a 09 09 63 4f | 44 42 43 53 6f 75 72 63 |SE....cO|DBCSourc|
|00002fe0| 65 20 3d 09 22 44 53 4e | 3d 22 20 2b 20 54 48 49 |e =."DSN|=" + THI|
|00002ff0| 53 2e 63 4f 44 42 43 5f | 44 53 4e 20 2b 20 3b 0d |S.cODBC_|DSN + ;.|
|00003000| 0a 09 09 09 09 09 09 22 | 3b 44 42 51 3d 22 20 2b |......."|;DBQ=" +|
|00003010| 20 6d 2e 63 44 42 51 50 | 61 74 68 20 2b 20 3b 0d | m.cDBQP|ath + ;.|
|00003020| 0a 09 09 09 09 09 09 22 | 3b 44 65 66 61 75 6c 74 |......."|;Default|
|00003030| 44 69 72 3d 22 20 2b 20 | 6d 2e 63 44 42 51 50 61 |Dir=" + |m.cDBQPa|
|00003040| 74 68 20 2b 20 3b 0d 0a | 09 09 09 09 09 09 22 3b |th + ;..|......";|
|00003050| 46 49 4c 3d 22 20 2b 20 | 54 48 49 53 2e 63 4f 44 |FIL=" + |THIS.cOD|
|00003060| 42 43 5f 46 49 4c 20 2b | 22 3b 22 0d 0a 09 45 4e |BC_FIL +|";"...EN|
|00003070| 44 49 46 0d 0a 0d 0a 09 | 49 46 20 54 48 49 53 2e |DIF.....|IF THIS.|
|00003080| 6c 45 6e 67 6c 69 73 68 | 0d 0a 09 09 49 46 20 54 |lEnglish|....IF T|
|00003090| 48 49 53 2e 6e 4e 65 77 | 44 6f 63 20 3d 20 4e 5f |HIS.nNew|Doc = N_|
|000030a0| 45 58 49 53 54 49 4e 47 | 5f 44 4f 43 0d 0a 09 09 |EXISTING|_DOC....|
|000030b0| 09 77 61 2e 45 4e 47 5f | 4f 4c 45 5f 46 49 4c 45 |.wa.ENG_|OLE_FILE|
|000030c0| 4f 50 45 4e 28 54 48 49 | 53 2e 63 44 6f 63 4e 61 |OPEN(THI|S.cDocNa|
|000030d0| 6d 65 29 0d 0a 09 09 45 | 4c 53 45 0d 0a 09 09 09 |me)....E|LSE.....|
|000030e0| 77 61 2e 45 4e 47 5f 4f | 4c 45 5f 46 49 4c 45 4e |wa.ENG_O|LE_FILEN|
|000030f0| 45 57 0d 0a 09 09 09 2a | 2d 20 73 65 74 20 6d 61 |EW.....*|- set ma|
|00003100| 69 6e 20 64 6f 63 75 6d | 65 6e 74 20 74 79 70 65 |in docum|ent type|
|00003110| 0d 0a 09 09 09 44 4f 20 | 43 41 53 45 0d 0a 09 09 |.....DO |CASE....|
|00003120| 09 09 43 41 53 45 20 54 | 48 49 53 2e 6e 54 65 6d |..CASE T|HIS.nTem|
|00003130| 70 6c 61 74 65 20 3d 20 | 4e 5f 4c 41 42 45 4c 0d |plate = |N_LABEL.|
|00003140| 0a 09 09 09 09 09 6d 2e | 6e 57 6f 72 64 44 6f 63 |......m.|nWordDoc|
|00003150| 54 79 70 65 20 3d 20 31 | 0d 0a 09 09 09 09 43 41 |Type = 1|......CA|
|00003160| 53 45 20 54 48 49 53 2e | 6e 54 65 6d 70 6c 61 74 |SE THIS.|nTemplat|
|00003170| 65 20 3d 20 4e 5f 45 4e | 56 45 4c 4f 50 45 0d 0a |e = N_EN|VELOPE..|
|00003180| 09 09 09 09 09 6d 2e 6e | 57 6f 72 64 44 6f 63 54 |.....m.n|WordDocT|
|00003190| 79 70 65 20 3d 20 32 0d | 0a 09 09 09 09 43 41 53 |ype = 2.|.....CAS|
|000031a0| 45 20 54 48 49 53 2e 6e | 54 65 6d 70 6c 61 74 65 |E THIS.n|Template|
|000031b0| 20 3d 20 4e 5f 43 41 54 | 41 4c 4f 47 0d 0a 09 09 | = N_CAT|ALOG....|
|000031c0| 09 09 09 6d 2e 6e 57 6f | 72 64 44 6f 63 54 79 70 |...m.nWo|rdDocTyp|
|000031d0| 65 20 3d 20 33 0d 0a 09 | 09 09 09 4f 54 48 45 52 |e = 3...|...OTHER|
|000031e0| 57 49 53 45 0d 0a 09 09 | 09 09 09 6d 2e 6e 57 6f |WISE....|...m.nWo|
|000031f0| 72 64 44 6f 63 54 79 70 | 65 20 3d 20 30 0d 0a 09 |rdDocTyp|e = 0...|
|00003200| 09 09 45 4e 44 43 41 53 | 45 0d 0a 09 09 09 49 46 |..ENDCAS|E.....IF|
|00003210| 20 54 48 49 53 2e 6c 45 | 6e 67 6c 69 73 68 0d 0a | THIS.lE|nglish..|
|00003220| 09 09 09 09 77 61 2e 45 | 4e 47 5f 4f 4c 45 5f 4d |....wa.E|NG_OLE_M|
|00003230| 4d 45 52 47 45 44 4f 43 | 54 59 50 45 28 6d 2e 6e |MERGEDOC|TYPE(m.n|
|00003240| 57 6f 72 64 44 6f 63 54 | 79 70 65 29 0d 0a 09 09 |WordDocT|ype)....|
|00003250| 09 45 4c 53 45 0d 0a 09 | 09 09 09 77 61 2e 58 5f |.ELSE...|...wa.X_|
|00003260| 4f 4c 45 5f 4d 4d 45 52 | 47 45 44 4f 43 54 59 50 |OLE_MMER|GEDOCTYP|
|00003270| 45 5f 4c 4f 43 28 6d 2e | 6e 57 6f 72 64 44 6f 63 |E_LOC(m.|nWordDoc|
|00003280| 54 79 70 65 29 0d 0a 09 | 09 09 45 4e 44 49 46 0d |Type)...|..ENDIF.|
|00003290| 0a 09 09 45 4e 44 49 46 | 0d 0a 0d 0a 09 09 2a 2d |...ENDIF|......*-|
|000032a0| 20 61 74 74 61 63 68 20 | 64 61 74 61 20 66 69 6c | attach |data fil|
|000032b0| 65 0d 0a 09 09 77 61 2e | 45 4e 47 5f 4f 4c 45 5f |e....wa.|ENG_OLE_|
|000032c0| 4d 4d 45 52 47 45 4f 50 | 45 4e 53 52 43 28 54 48 |MMERGEOP|ENSRC(TH|
|000032d0| 49 53 2e 63 44 61 74 61 | 53 72 63 2c 30 2c 30 2c |IS.cData|Src,0,0,|
|000032e0| 30 2c 30 2c 22 22 2c 22 | 22 2c 30 2c 22 22 2c 22 |0,0,"","|",0,"","|
|000032f0| 22 2c 6d 2e 63 4f 44 42 | 43 53 6f 75 72 63 65 2c |",m.cODB|CSource,|
|00003300| 3b 0d 0a 09 09 09 54 48 | 49 53 2e 63 73 71 6c 73 |;.....TH|IS.csqls|
|00003310| 74 6d 74 2c 20 54 48 49 | 53 2e 63 73 71 6c 73 74 |tmt, THI|S.csqlst|
|00003320| 6d 74 32 29 0d 0a 0d 0a | 09 09 2a 2d 20 61 63 74 |mt2)....|..*- act|
|00003330| 69 76 61 74 65 20 4d 53 | 57 20 77 69 74 68 20 70 |ivate MS|W with p|
|00003340| 72 6f 70 65 72 20 64 6f | 63 75 6d 65 6e 74 0d 0a |roper do|cument..|
|00003350| 09 09 77 61 2e 45 4e 47 | 5f 4f 4c 45 5f 41 50 50 |..wa.ENG|_OLE_APP|
|00003360| 52 45 53 54 4f 52 45 09 | 09 09 09 26 26 20 74 68 |RESTORE.|...&& th|
|00003370| 69 73 20 64 6f 65 73 6e | 27 74 20 73 65 65 6d 20 |is doesn|'t seem |
|00003380| 74 6f 20 77 6f 72 6b 2c | 20 68 65 6e 63 65 2e 2e |to work,| hence..|
|00003390| 2e 20 0d 0a 0d 0a 09 09 | 54 48 49 53 2e 73 79 73 |. ......|THIS.sys|
|000033a0| 63 68 20 3d 20 44 44 45 | 49 6e 69 74 69 61 74 65 |ch = DDE|Initiate|
|000033b0| 28 43 5f 4d 53 57 4f 52 | 44 57 49 4e 2c 22 53 79 |(C_MSWOR|DWIN,"Sy|
|000033c0| 73 74 65 6d 22 29 0d 0a | 09 09 49 46 20 54 48 49 |stem")..|..IF THI|
|000033d0| 53 2e 73 79 73 63 68 20 | 3e 20 30 0d 0a 09 09 09 |S.sysch |> 0.....|
|000033e0| 3d 44 44 45 45 78 65 63 | 75 74 65 28 54 48 49 53 |=DDEExec|ute(THIS|
|000033f0| 2e 73 79 73 63 68 2c 45 | 4e 47 5f 41 50 50 52 45 |.sysch,E|NG_APPRE|
|00003400| 53 54 4f 52 45 29 0d 0a | 09 09 09 3d 44 44 45 54 |STORE)..|...=DDET|
|00003410| 65 72 6d 69 6e 61 74 65 | 28 54 48 49 53 2e 73 79 |erminate|(THIS.sy|
|00003420| 73 63 68 29 0d 0a 09 09 | 45 4e 44 49 46 0d 0a 0d |sch)....|ENDIF...|
|00003430| 0a 09 09 77 61 2e 45 4e | 47 5f 4f 4c 45 5f 41 50 |...wa.EN|G_OLE_AP|
|00003440| 50 41 43 54 49 56 41 54 | 45 28 57 49 4e 5f 53 45 |PACTIVAT|E(WIN_SE|
|00003450| 43 54 36 2c 31 29 0d 0a | 0d 0a 09 45 4c 53 45 0d |CT6,1)..|...ELSE.|
|00003460| 0a 09 09 49 46 20 54 48 | 49 53 2e 6e 4e 65 77 44 |...IF TH|IS.nNewD|
|00003470| 6f 63 20 3d 20 4e 5f 45 | 58 49 53 54 49 4e 47 5f |oc = N_E|XISTING_|
|00003480| 44 4f 43 0d 0a 09 09 09 | 77 61 2e 58 5f 4f 4c 45 |DOC.....|wa.X_OLE|
|00003490| 5f 46 49 4c 45 4f 50 45 | 4e 5f 4c 4f 43 28 54 48 |_FILEOPE|N_LOC(TH|
|000034a0| 49 53 2e 63 44 6f 63 4e | 61 6d 65 29 0d 0a 09 09 |IS.cDocN|ame)....|
|000034b0| 45 4c 53 45 0d 0a 09 09 | 09 77 61 2e 58 5f 4f 4c |ELSE....|.wa.X_OL|
|000034c0| 45 5f 46 49 4c 45 4e 45 | 57 5f 4c 4f 43 0d 0a 09 |E_FILENE|W_LOC...|
|000034d0| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 09 2a 2d 20 61 |.ENDIF..|....*- a|
|000034e0| 74 74 61 63 68 20 64 61 | 74 61 20 66 69 6c 65 0d |ttach da|ta file.|
|000034f0| 0a 09 09 77 61 2e 58 5f | 4f 4c 45 5f 4d 4d 45 52 |...wa.X_|OLE_MMER|
|00003500| 47 45 4f 50 45 4e 53 52 | 43 5f 4c 4f 43 28 54 48 |GEOPENSR|C_LOC(TH|
|00003510| 49 53 2e 63 44 61 74 61 | 53 72 63 2c 30 2c 30 2c |IS.cData|Src,0,0,|
|00003520| 30 2c 30 2c 22 22 2c 22 | 22 2c 30 2c 22 22 2c 22 |0,0,"","|",0,"","|
|00003530| 22 2c 6d 2e 63 4f 44 42 | 43 53 6f 75 72 63 65 2c |",m.cODB|CSource,|
|00003540| 3b 0d 0a 09 09 09 54 48 | 49 53 2e 63 73 71 6c 73 |;.....TH|IS.csqls|
|00003550| 74 6d 74 2c 20 54 48 49 | 53 2e 63 73 71 6c 73 74 |tmt, THI|S.csqlst|
|00003560| 6d 74 32 29 0d 0a 0d 0a | 09 09 2a 2d 20 61 63 74 |mt2)....|..*- act|
|00003570| 69 76 61 74 65 20 4d 53 | 57 20 77 69 74 68 20 70 |ivate MS|W with p|
|00003580| 72 6f 70 65 72 20 64 6f | 63 75 6d 65 6e 74 0d 0a |roper do|cument..|
|00003590| 09 09 77 61 2e 58 5f 4f | 4c 45 5f 41 50 50 52 45 |..wa.X_O|LE_APPRE|
|000035a0| 53 54 4f 52 45 5f 4c 4f | 43 0d 0a 0d 0a 09 09 54 |STORE_LO|C......T|
|000035b0| 48 49 53 2e 73 79 73 63 | 68 20 3d 20 44 44 45 49 |HIS.sysc|h = DDEI|
|000035c0| 6e 69 74 69 61 74 65 28 | 43 5f 4d 53 57 4f 52 44 |nitiate(|C_MSWORD|
|000035d0| 57 49 4e 2c 22 53 79 73 | 74 65 6d 22 29 0d 0a 09 |WIN,"Sys|tem")...|
|000035e0| 09 49 46 20 54 48 49 53 | 2e 73 79 73 63 68 20 3e |.IF THIS|.sysch >|
|000035f0| 20 30 0d 0a 09 09 09 3d | 44 44 45 45 78 65 63 75 | 0.....=|DDEExecu|
|00003600| 74 65 28 54 48 49 53 2e | 73 79 73 63 68 2c 58 5f |te(THIS.|sysch,X_|
|00003610| 41 50 50 52 45 53 54 4f | 52 45 5f 4c 4f 43 29 0d |APPRESTO|RE_LOC).|
|00003620| 0a 09 09 09 3d 44 44 45 | 54 65 72 6d 69 6e 61 74 |....=DDE|Terminat|
|00003630| 65 28 54 48 49 53 2e 73 | 79 73 63 68 29 0d 0a 09 |e(THIS.s|ysch)...|
|00003640| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 09 77 61 2e 58 |.ENDIF..|....wa.X|
|00003650| 5f 4f 4c 45 5f 41 50 50 | 41 43 54 49 56 41 54 45 |_OLE_APP|ACTIVATE|
|00003660| 5f 4c 4f 43 28 57 49 4e | 5f 53 45 43 54 36 2c 31 |_LOC(WIN|_SECT6,1|
|00003670| 29 0d 0a 09 45 4e 44 49 | 46 0d 0a 0d 0a 09 2a 2d |)...ENDI|F.....*-|
|00003680| 20 74 72 79 20 74 6f 20 | 64 69 73 70 6c 61 79 20 | try to |display |
|00003690| 74 68 65 20 61 70 70 72 | 6f 70 72 69 61 74 65 20 |the appr|opriate |
|000036a0| 64 69 61 6c 6f 67 20 0d | 0a 09 49 46 20 54 48 49 |dialog .|..IF THI|
|000036b0| 53 2e 6e 4e 65 77 44 6f | 63 20 3d 20 4e 5f 4e 45 |S.nNewDo|c = N_NE|
|000036c0| 57 5f 44 4f 43 0d 0a 09 | 09 2a 2d 20 64 69 73 70 |W_DOC...|.*- disp|
|000036d0| 6c 61 79 20 61 70 70 72 | 6f 70 72 69 61 74 65 20 |lay appr|opriate |
|000036e0| 57 6f 72 64 20 64 69 61 | 6c 6f 67 0d 0a 09 09 44 |Word dia|log....D|
|000036f0| 4f 20 43 41 53 45 0d 0a | 09 09 09 43 41 53 45 20 |O CASE..|...CASE |
|00003700| 54 48 49 53 2e 6e 54 65 | 6d 70 6c 61 74 65 20 3d |THIS.nTe|mplate =|
|00003710| 20 4e 5f 4c 41 42 45 4c | 0d 0a 09 09 09 09 54 48 | N_LABEL|......TH|
|00003720| 49 53 2e 6d 73 77 6d 6c | 64 6c 67 28 4e 5f 4c 41 |IS.mswml|dlg(N_LA|
|00003730| 42 45 4c 29 0d 0a 09 09 | 09 43 41 53 45 20 54 48 |BEL)....|.CASE TH|
|00003740| 49 53 2e 6e 54 65 6d 70 | 6c 61 74 65 20 3d 20 4e |IS.nTemp|late = N|
|00003750| 5f 45 4e 56 45 4c 4f 50 | 45 0d 0a 09 09 09 09 54 |_ENVELOP|E......T|
|00003760| 48 49 53 2e 6d 73 77 6d | 6c 64 6c 67 28 4e 5f 45 |HIS.mswm|ldlg(N_E|
|00003770| 4e 56 45 4c 4f 50 45 29 | 0d 0a 09 09 09 43 41 53 |NVELOPE)|.....CAS|
|00003780| 45 20 54 48 49 53 2e 6e | 54 65 6d 70 6c 61 74 65 |E THIS.n|Template|
|00003790| 20 3d 20 4e 5f 43 41 54 | 41 4c 4f 47 0d 0a 09 09 | = N_CAT|ALOG....|
|000037a0| 09 09 54 48 49 53 2e 6d | 73 77 6d 6c 64 6c 67 28 |..THIS.m|swmldlg(|
|000037b0| 4e 5f 43 41 54 41 4c 4f | 47 29 0d 0a 09 09 09 4f |N_CATALO|G).....O|
|000037c0| 54 48 45 52 57 49 53 45 | 0d 0a 09 09 45 4e 44 43 |THERWISE|....ENDC|
|000037d0| 41 53 45 0d 0a 09 45 4e | 44 49 46 0d 0a 0d 0a 09 |ASE...EN|DIF.....|
|000037e0| 2a 2d 20 74 65 72 6d 69 | 6e 61 74 65 20 74 68 65 |*- termi|nate the|
|000037f0| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 0d 0a 09 77 61 | connect|ion...wa|
|00003800| 20 3d 20 2e 4e 55 4c 4c | 2e 0d 0a 0d 0a 09 52 45 | = .NULL|......RE|
|00003810| 54 55 52 4e 0d 0a 0d 0a | 45 4e 44 50 52 4f 43 0d |TURN....|ENDPROC.|
|00003820| 0a 50 52 4f 43 45 44 55 | 52 45 20 6d 73 77 6d 6c |.PROCEDU|RE mswml|
|00003830| 64 6c 67 0d 0a 09 50 41 | 52 41 4d 45 54 45 52 20 |dlg...PA|RAMETER |
|00003840| 69 74 6d 70 6c 0d 0a 0d | 0a 0d 0a 09 49 46 20 54 |itmpl...|....IF T|
|00003850| 48 49 53 2e 6e 57 6f 72 | 64 50 72 6f 63 20 23 20 |HIS.nWor|dProc # |
|00003860| 4e 5f 57 4f 52 44 36 30 | 0d 0a 09 09 52 45 54 55 |N_WORD60|....RETU|
|00003870| 52 4e 20 2e 54 2e 0d 0a | 09 45 4e 44 49 46 0d 0a |RN .T...|.ENDIF..|
|00003880| 0d 0a 09 49 46 20 54 48 | 49 53 2e 6c 45 6e 67 6c |...IF TH|IS.lEngl|
|00003890| 69 73 68 0d 0a 09 09 77 | 61 2e 45 4e 47 5f 4f 4c |ish....w|a.ENG_OL|
|000038a0| 45 5f 54 4f 4f 4c 53 4d | 41 43 52 4f 28 22 4d 61 |E_TOOLSM|ACRO("Ma|
|000038b0| 69 6c 4d 65 72 67 65 48 | 65 6c 70 65 72 22 2c 31 |ilMergeH|elper",1|
|000038c0| 2c 30 29 0d 0a 09 45 4c | 53 45 0d 0a 09 09 77 61 |,0)...EL|SE....wa|
|000038d0| 2e 58 5f 4f 4c 45 5f 54 | 4f 4f 4c 53 4d 41 43 52 |.X_OLE_T|OOLSMACR|
|000038e0| 4f 5f 4c 4f 43 28 58 5f | 4f 4c 45 5f 4d 41 49 4c |O_LOC(X_|OLE_MAIL|
|000038f0| 4d 45 52 47 45 48 45 4c | 50 45 52 5f 4c 4f 43 2c |MERGEHEL|PER_LOC,|
|00003900| 31 2c 30 29 0d 0a 09 45 | 4e 44 49 46 0d 0a 0d 0a |1,0)...E|NDIF....|
|00003910| 09 52 45 54 55 52 4e 20 | 2e 54 2e 0d 0a 0d 0a 45 |.RETURN |.T.....E|
|00003920| 4e 44 50 52 4f 43 0d 0a | 50 52 4f 43 45 44 55 52 |NDPROC..|PROCEDUR|
|00003930| 45 20 73 74 61 72 74 77 | 6f 72 64 0d 0a 09 50 41 |E startw|ord...PA|
|00003940| 52 41 4d 45 54 45 52 20 | 63 76 65 72 73 69 6f 6e |RAMETER |cversion|
|00003950| 0d 0a 09 2a 2d 20 52 6f | 75 74 69 6e 65 20 69 73 |...*- Ro|utine is|
|00003960| 20 63 61 6c 6c 65 64 20 | 74 6f 20 63 68 65 63 6b | called |to check|
|00003970| 20 69 66 20 57 6f 72 64 | 20 69 73 20 0d 0a 09 2a | if Word| is ...*|
|00003980| 2d 20 72 75 6e 6e 69 6e | 67 20 61 6e 64 2f 6f 72 |- runnin|g and/or|
|00003990| 20 44 44 45 20 73 79 73 | 74 65 6d 20 63 68 61 6e | DDE sys|tem chan|
|000039a0| 6e 65 6c 20 69 73 20 73 | 65 74 2e 0d 0a 09 2a 2d |nel is s|et....*-|
|000039b0| 20 41 6c 73 6f 20 63 68 | 65 63 6b 20 69 66 20 57 | Also ch|eck if W|
|000039c0| 6f 72 64 20 77 61 73 20 | 63 6c 6f 73 65 64 20 62 |ord was |closed b|
|000039d0| 79 20 75 73 65 72 0d 0a | 09 2a 2d 20 77 68 69 6c |y user..|.*- whil|
|000039e0| 65 20 46 6f 78 50 72 6f | 20 73 63 72 65 65 6e 20 |e FoxPro| screen |
|000039f0| 6f 70 65 6e 2e 0d 0a 0d | 0a 09 4c 4f 43 41 4c 20 |open....|..LOCAL |
|00003a00| 6c 6c 61 75 6e 63 68 65 | 72 72 2c 20 6c 73 61 66 |llaunche|rr, lsaf|
|00003a10| 65 74 79 2c 20 63 77 6f | 72 64 64 69 72 2c 20 63 |ety, cwo|rddir, c|
|00003a20| 6c 61 75 6e 63 68 6d 73 | 67 2c 20 6d 2e 6e 4c 61 |launchms|g, m.nLa|
|00003a30| 73 74 44 44 45 45 72 72 | 6f 72 2c 20 63 53 79 73 |stDDEErr|or, cSys|
|00003a40| 49 74 65 6d 73 2c 3b 0d | 0a 09 09 63 53 63 72 69 |Items,;.|...cScri|
|00003a50| 70 74 2c 20 63 45 78 65 | 0d 0a 0d 0a 09 6d 2e 6c |pt, cExe|.....m.l|
|00003a60| 6c 61 75 6e 63 68 65 72 | 72 20 3d 20 2e 46 2e 0d |launcher|r = .F..|
|00003a70| 0a 0d 0a 09 44 4f 20 43 | 41 53 45 0d 0a 09 09 43 |....DO C|ASE....C|
|00003a80| 41 53 45 20 5f 77 69 6e | 64 6f 77 73 0d 0a 09 09 |ASE _win|dows....|
|00003a90| 09 54 48 49 53 2e 63 65 | 78 65 20 3d 20 43 5f 4d |.THIS.ce|xe = C_M|
|00003aa0| 53 57 4f 52 44 45 58 45 | 0d 0a 09 09 43 41 53 45 |SWORDEXE|....CASE|
|00003ab0| 20 5f 6d 61 63 0d 0a 09 | 09 09 54 48 49 53 2e 63 | _mac...|..THIS.c|
|00003ac0| 65 78 65 20 3d 20 43 5f | 4d 53 57 4f 52 44 4d 41 |exe = C_|MSWORDMA|
|00003ad0| 43 0d 0a 09 09 4f 54 48 | 45 52 57 49 53 45 0d 0a |C....OTH|ERWISE..|
|00003ae0| 09 09 09 54 48 49 53 2e | 63 65 78 65 20 3d 20 22 |...THIS.|cexe = "|
|00003af0| 22 0d 0a 09 45 4e 44 43 | 41 53 45 0d 0a 0d 0a 09 |"...ENDC|ASE.....|
|00003b00| 44 4f 20 43 41 53 45 0d | 0a 09 09 43 41 53 45 20 |DO CASE.|...CASE |
|00003b10| 63 76 65 72 73 69 6f 6e | 20 3d 20 43 5f 57 4f 52 |cversion| = C_WOR|
|00003b20| 44 36 0d 0a 09 09 09 6d | 2e 63 4c 61 75 6e 63 68 |D6.....m|.cLaunch|
|00003b30| 4d 73 67 20 3d 20 43 5f | 53 54 41 52 54 57 4f 52 |Msg = C_|STARTWOR|
|00003b40| 44 36 30 5f 4c 4f 43 0d | 0a 09 09 4f 54 48 45 52 |D60_LOC.|...OTHER|
|00003b50| 57 49 53 45 0d 0a 09 09 | 09 52 45 54 55 52 4e 20 |WISE....|.RETURN |
|00003b60| 2e 46 2e 0d 0a 09 45 4e | 44 43 41 53 45 0d 0a 09 |.F....EN|DCASE...|
|00003b70| 09 0d 0a 09 6d 2e 63 4f | 6c 64 45 72 72 20 3d 20 |....m.cO|ldErr = |
|00003b80| 4f 4e 28 27 45 52 52 4f | 52 27 29 0d 0a 09 4f 4e |ON('ERRO|R')...ON|
|00003b90| 20 45 52 52 4f 52 20 6d | 2e 6c 6c 61 75 6e 63 68 | ERROR m|.llaunch|
|00003ba0| 65 72 72 20 3d 20 2e 54 | 2e 0d 0a 0d 0a 09 49 46 |err = .T|......IF|
|00003bb0| 20 5f 6d 61 63 0d 0a 09 | 09 2a 2d 0d 0a 09 09 2a | _mac...|.*-....*|
|00003bc0| 2d 20 6e 6f 74 65 20 2d | 2d 20 74 68 65 20 66 6f |- note -|- the fo|
|00003bd0| 6c 6c 6f 77 69 6e 67 20 | 69 73 20 74 6f 20 73 75 |llowing |is to su|
|00003be0| 70 70 6f 72 74 20 69 6e | 74 65 72 61 63 74 69 6e |pport in|teractin|
|00003bf0| 67 20 77 69 74 68 20 57 | 6f 72 64 20 76 69 61 20 |g with W|ord via |
|00003c00| 4f 4c 45 20 61 75 74 6f | 6d 61 74 69 6f 6e 20 0d |OLE auto|mation .|
|00003c10| 0a 09 09 2a 2d 20 49 74 | 20 69 73 20 6e 6f 74 20 |...*- It| is not |
|00003c20| 63 75 72 72 65 6e 74 6c | 79 20 75 73 65 64 20 28 |currentl|y used (|
|00003c30| 41 70 70 6c 65 73 63 72 | 69 70 74 20 69 73 20 75 |Applescr|ipt is u|
|00003c40| 73 65 64 20 69 6e 73 74 | 65 61 64 2c 20 63 61 6c |sed inst|ead, cal|
|00003c50| 6c 65 64 20 61 62 6f 76 | 65 29 0d 0a 09 09 2a 2d |led abov|e)....*-|
|00003c60| 0d 0a 09 09 2a 2d 20 67 | 65 74 20 77 6f 72 64 20 |....*- g|et word |
|00003c70| 6c 6f 63 61 74 69 6f 6e | 0d 0a 09 09 2a 2d 20 66 |location|....*- f|
|00003c80| 6f 72 63 65 20 75 73 65 | 72 20 74 6f 20 6c 6f 63 |orce use|r to loc|
|00003c90| 61 74 65 20 69 74 0d 0a | 0d 0a 09 09 54 48 49 53 |ate it..|....THIS|
|00003ca0| 2e 63 65 78 65 20 3d 20 | 22 52 61 77 3a 41 70 70 |.cexe = |"Raw:App|
|00003cb0| 73 3a 4d 69 63 72 6f 73 | 6f 66 74 20 4f 66 66 69 |s:Micros|oft Offi|
|00003cc0| 63 65 3a 4d 69 63 72 6f | 73 6f 66 74 20 57 6f 72 |ce:Micro|soft Wor|
|00003cd0| 64 20 36 3a 4d 69 63 72 | 6f 73 6f 66 74 20 57 6f |d 6:Micr|osoft Wo|
|00003ce0| 72 64 22 0d 0a 09 09 49 | 46 20 21 46 49 4c 45 28 |rd"....I|F !FILE(|
|00003cf0| 54 48 49 53 2e 63 65 78 | 65 29 0d 0a 09 09 09 54 |THIS.cex|e).....T|
|00003d00| 48 49 53 2e 63 65 78 65 | 20 3d 20 53 59 53 28 32 |HIS.cexe| = SYS(2|
|00003d10| 30 32 37 2c 47 45 54 46 | 49 4c 45 28 22 22 2c 22 |027,GETF|ILE("","|
|00003d20| 4c 6f 63 61 74 65 20 22 | 20 2b 20 41 4c 4c 54 28 |Locate "| + ALLT(|
|00003d30| 54 48 49 53 2e 63 65 78 | 65 29 2c 22 22 2c 30 2c |THIS.cex|e),"",0,|
|00003d40| 27 41 50 50 4c 27 29 29 | 0d 0a 09 09 45 4e 44 49 |'APPL'))|....ENDI|
|00003d50| 46 0d 0a 09 09 49 46 20 | 45 4d 50 54 59 28 54 48 |F....IF |EMPTY(TH|
|00003d60| 49 53 2e 63 65 78 65 29 | 0d 0a 09 09 09 2a 2d 20 |IS.cexe)|.....*- |
|00003d70| 63 61 6e 63 65 6c 6c 65 | 64 0d 0a 09 09 09 52 45 |cancelle|d.....RE|
|00003d80| 54 55 52 4e 20 2e 46 2e | 0d 0a 09 09 45 4c 53 45 |TURN .F.|....ELSE|
|00003d90| 0d 0a 09 09 09 2a 2d 20 | 75 70 64 61 74 65 20 70 |.....*- |update p|
|00003da0| 72 65 66 73 0d 0a 09 09 | 09 2a 3d 50 75 74 50 72 |refs....|.*=PutPr|
|00003db0| 65 66 28 27 50 52 45 46 | 4d 27 2c 4b 5f 57 4f 52 |ef('PREF|M',K_WOR|
|00003dc0| 44 36 49 44 2c 27 4d 53 | 20 57 6f 72 64 20 36 2e |D6ID,'MS| Word 6.|
|00003dd0| 30 20 4c 6f 63 61 74 69 | 6f 6e 27 2c 2e 46 2e 2c |0 Locati|on',.F.,|
|00003de0| 43 5f 4d 53 57 4f 52 44 | 4d 41 43 29 0d 0a 09 09 |C_MSWORD|MAC)....|
|00003df0| 45 4e 44 49 46 0d 0a 0d | 0a 09 09 2a 2d 20 63 72 |ENDIF...|...*- cr|
|00003e00| 65 61 74 65 20 41 70 70 | 6c 65 73 63 72 69 70 74 |eate App|lescript|
|00003e10| 0d 0a 09 09 63 53 63 72 | 69 70 74 20 3d 20 53 59 |....cScr|ipt = SY|
|00003e20| 53 28 32 30 32 37 2c 53 | 59 53 28 32 30 32 33 29 |S(2027,S|YS(2023)|
|00003e30| 29 20 2b 20 53 59 53 28 | 33 29 20 2b 20 22 2e 73 |) + SYS(|3) + ".s|
|00003e40| 63 72 69 70 74 22 0d 0a | 0d 0a 09 09 53 45 54 20 |cript"..|....SET |
|00003e50| 54 45 58 54 4d 45 52 47 | 45 20 54 4f 20 28 6d 2e |TEXTMERG|E TO (m.|
|00003e60| 63 53 63 72 69 70 74 29 | 0d 0a 09 09 53 45 54 20 |cScript)|....SET |
|00003e70| 54 45 58 54 4d 45 52 47 | 45 20 4f 4e 20 4e 4f 53 |TEXTMERG|E ON NOS|
|00003e80| 48 4f 57 0d 0a 09 09 5c | 5c 20 2d 2d 20 41 70 70 |HOW....\|\ -- App|
|00003e90| 6c 65 53 63 72 69 70 74 | aa 20 73 63 72 69 70 74 |leScript|. script|
|00003ea0| 20 74 6f 20 6c 61 75 6e | 63 68 20 4d 53 20 57 6f | to laun|ch MS Wo|
|00003eb0| 72 64 20 66 6f 72 20 4d | 61 63 69 6e 74 6f 73 68 |rd for M|acintosh|
|00003ec0| 20 36 2e 30 0d 0a 09 09 | 5c 74 65 6c 6c 20 61 70 | 6.0....|\tell ap|
|00003ed0| 70 6c 69 63 61 74 69 6f | 6e 20 22 3c 3c 54 48 49 |plicatio|n "<<THI|
|00003ee0| 53 2e 63 65 78 65 3e 3e | 22 0d 0a 09 09 5c 09 52 |S.cexe>>|"....\.R|
|00003ef0| 75 6e 0d 0a 09 09 5c 65 | 6e 64 20 74 65 6c 6c 0d |un....\e|nd tell.|
|00003f00| 0a 09 09 2a 2d 20 63 6c | 6f 73 65 20 74 65 78 74 |...*- cl|ose text|
|00003f10| 6d 65 72 67 65 20 66 69 | 6c 65 2c 20 73 74 72 69 |merge fi|le, stri|
|00003f20| 70 20 6f 75 74 20 6c 69 | 6e 65 66 65 65 64 73 0d |p out li|nefeeds.|
|00003f30| 0a 09 09 53 45 54 20 54 | 45 58 54 4d 45 52 47 45 |...SET T|EXTMERGE|
|00003f40| 20 54 4f 0d 0a 09 09 54 | 48 49 53 2e 46 78 53 74 | TO....T|HIS.FxSt|
|00003f50| 72 69 70 4c 46 28 6d 2e | 63 53 63 72 69 70 74 29 |ripLF(m.|cScript)|
|00003f60| 0d 0a 09 09 2a 2d 20 72 | 75 6e 20 41 70 70 6c 65 |....*- r|un Apple|
|00003f70| 73 63 72 69 70 74 0d 0a | 09 09 52 55 4e 53 43 52 |script..|..RUNSCR|
|00003f80| 49 50 54 20 28 6d 2e 63 | 53 63 72 69 70 74 29 0d |IPT (m.c|Script).|
|00003f90| 0a 0d 0a 09 45 4c 53 45 | 0d 0a 09 09 2a 2d 20 4e |....ELSE|....*- N|
|00003fa0| 6f 74 20 4d 61 63 69 6e | 74 6f 73 68 0d 0a 09 09 |ot Macin|tosh....|
|00003fb0| 2a 2d 20 54 65 72 6d 69 | 6e 61 74 65 20 61 20 70 |*- Termi|nate a p|
|00003fc0| 72 69 6f 72 20 63 68 61 | 6e 6e 65 6c 20 69 66 20 |rior cha|nnel if |
|00003fd0| 75 73 65 72 20 71 75 69 | 74 20 57 6f 72 64 0d 0a |user qui|t Word..|
|00003fe0| 09 09 2a 2d 20 77 68 69 | 6c 65 20 73 74 69 6c 6c |..*- whi|le still|
|00003ff0| 20 69 6e 20 73 63 72 65 | 65 6e 2e 0d 0a 09 09 49 | in scre|en.....I|
|00004000| 46 20 54 48 49 53 2e 73 | 79 73 63 68 20 23 20 2d |F THIS.s|ysch # -|
|00004010| 31 0d 0a 09 09 09 3d 44 | 44 45 52 65 71 75 65 73 |1.....=D|DEReques|
|00004020| 74 28 54 48 49 53 2e 73 | 79 73 63 68 2c 27 74 6f |t(THIS.s|ysch,'to|
|00004030| 70 69 63 73 27 29 0d 0a | 09 09 09 6d 2e 6e 4c 61 |pics')..|...m.nLa|
|00004040| 73 74 44 44 45 45 72 72 | 6f 72 20 3d 20 44 44 45 |stDDEErr|or = DDE|
|00004050| 4c 61 73 74 45 72 72 6f | 72 28 29 0d 0a 09 09 09 |LastErro|r().....|
|00004060| 49 46 20 6d 2e 6e 4c 61 | 73 74 44 44 45 45 72 72 |IF m.nLa|stDDEErr|
|00004070| 6f 72 20 3d 3d 20 4e 5f | 4e 4f 43 4c 49 45 4e 54 |or == N_|NOCLIENT|
|00004080| 45 52 52 20 4f 52 20 6d | 2e 6e 4c 61 73 74 44 44 |ERR OR m|.nLastDD|
|00004090| 45 45 72 72 6f 72 20 3d | 3d 20 4e 5f 42 41 44 43 |EError =|= N_BADC|
|000040a0| 48 41 4e 4e 45 4c 45 52 | 52 20 0d 0a 09 09 09 09 |HANNELER|R ......|
|000040b0| 3d 44 44 45 54 65 72 6d | 69 6e 61 74 65 28 54 48 |=DDETerm|inate(TH|
|000040c0| 49 53 2e 73 79 73 63 68 | 29 0d 0a 09 09 09 09 54 |IS.sysch|)......T|
|000040d0| 48 49 53 2e 73 79 73 63 | 68 20 3d 20 2d 31 0d 0a |HIS.sysc|h = -1..|
|000040e0| 09 09 09 45 4e 44 49 46 | 0d 0a 09 09 45 4e 44 49 |...ENDIF|....ENDI|
|000040f0| 46 0d 0a 09 09 49 46 20 | 54 48 49 53 2e 73 79 73 |F....IF |THIS.sys|
|00004100| 63 68 20 3d 20 2d 31 0d | 0a 09 09 09 6d 2e 6c 73 |ch = -1.|....m.ls|
|00004110| 61 66 65 74 79 20 3d 20 | 44 44 45 53 65 74 4f 70 |afety = |DDESetOp|
|00004120| 74 69 6f 6e 28 22 53 41 | 46 45 54 59 22 29 0d 0a |tion("SA|FETY")..|
|00004130| 09 09 09 3d 44 44 45 53 | 65 74 4f 70 74 69 6f 6e |...=DDES|etOption|
|00004140| 28 22 53 41 46 45 54 59 | 22 2c 2e 46 2e 29 0d 0a |("SAFETY|",.F.)..|
|00004150| 09 09 09 54 48 49 53 2e | 73 79 73 63 68 20 3d 20 |...THIS.|sysch = |
|00004160| 44 44 45 49 6e 69 74 69 | 61 74 65 28 43 5f 4d 53 |DDEIniti|ate(C_MS|
|00004170| 57 4f 52 44 57 49 4e 2c | 22 53 79 73 74 65 6d 22 |WORDWIN,|"System"|
|00004180| 29 0d 0a 09 09 09 49 46 | 20 54 48 49 53 2e 73 79 |).....IF| THIS.sy|
|00004190| 73 63 68 20 3d 20 2d 31 | 09 09 09 09 26 26 20 66 |sch = -1|....&& f|
|000041a0| 61 69 6c 65 64 0d 0a 09 | 09 09 09 2a 2d 20 6f 62 |ailed...|...*- ob|
|000041b0| 74 61 69 6e 20 57 6f 72 | 64 20 64 69 72 65 63 74 |tain Wor|d direct|
|000041c0| 6f 72 79 0d 0a 09 09 09 | 09 54 48 49 53 2e 63 65 |ory.....|.THIS.ce|
|000041d0| 78 65 20 3d 20 54 48 49 | 53 2e 47 65 74 4d 53 57 |xe = THI|S.GetMSW|
|000041e0| 28 6d 2e 63 76 65 72 73 | 69 6f 6e 29 0d 0a 09 09 |(m.cvers|ion)....|
|000041f0| 09 09 49 46 20 45 4d 50 | 54 59 28 54 48 49 53 2e |..IF EMP|TY(THIS.|
|00004200| 63 65 78 65 29 0d 0a 09 | 09 09 09 09 2a 2d 20 66 |cexe)...|....*- f|
|00004210| 61 69 6c 65 64 20 74 6f | 20 66 69 6e 64 20 2e 49 |ailed to| find .I|
|00004220| 4e 49 20 69 6e 66 6f 2c | 20 73 6f 20 66 61 69 6c |NI info,| so fail|
|00004230| 0d 0a 09 09 09 09 09 54 | 48 49 53 2e 73 79 73 63 |.......T|HIS.sysc|
|00004240| 68 20 3d 20 2d 31 0d 0a | 09 09 09 09 45 4c 53 45 |h = -1..|....ELSE|
|00004250| 0d 0a 09 09 09 09 09 57 | 41 49 54 20 57 49 4e 44 |.......W|AIT WIND|
|00004260| 4f 57 20 6d 2e 63 4c 61 | 75 6e 63 68 4d 73 67 20 |OW m.cLa|unchMsg |
|00004270| 4e 4f 57 41 49 54 0d 0a | 09 09 09 09 09 6d 2e 63 |NOWAIT..|.....m.c|
|00004280| 65 78 65 20 3d 20 54 48 | 49 53 2e 63 65 78 65 0d |exe = TH|IS.cexe.|
|00004290| 0a 09 09 09 09 09 52 55 | 4e 20 2f 4e 37 20 26 63 |......RU|N /N7 &c|
|000042a0| 65 78 65 0d 0a 09 09 09 | 09 09 54 48 49 53 2e 73 |exe.....|..THIS.s|
|000042b0| 79 73 63 68 20 3d 20 44 | 44 45 49 6e 69 74 69 61 |ysch = D|DEInitia|
|000042c0| 74 65 28 43 5f 4d 53 57 | 4f 52 44 57 49 4e 2c 22 |te(C_MSW|ORDWIN,"|
|000042d0| 53 79 73 74 65 6d 22 29 | 0d 0a 09 09 09 09 45 4e |System")|......EN|
|000042e0| 44 49 46 0d 0a 09 09 09 | 45 4e 44 49 46 0d 0a 09 |DIF.....|ENDIF...|
|000042f0| 09 09 49 46 20 54 48 49 | 53 2e 73 79 73 63 68 20 |..IF THI|S.sysch |
|00004300| 3d 20 2d 31 20 41 4e 44 | 20 21 54 48 49 53 2e 6c |= -1 AND| !THIS.l|
|00004310| 41 6c 65 72 74 65 64 0d | 0a 09 09 09 09 54 48 49 |Alerted.|.....THI|
|00004320| 53 2e 41 4c 45 52 54 28 | 45 5f 4e 4f 4d 53 57 4c |S.ALERT(|E_NOMSWL|
|00004330| 41 55 4e 43 48 5f 4c 4f | 43 29 0d 0a 09 09 09 45 |AUNCH_LO|C).....E|
|00004340| 4e 44 49 46 0d 0a 09 09 | 45 4e 44 49 46 0d 0a 09 |NDIF....|ENDIF...|
|00004350| 09 49 46 20 54 48 49 53 | 2e 73 79 73 63 68 20 3c |.IF THIS|.sysch <|
|00004360| 3e 20 2d 31 0d 0a 09 09 | 09 2a 2d 20 69 66 20 74 |> -1....|.*- if t|
|00004370| 68 65 79 20 67 6f 74 20 | 69 74 20 6c 61 75 6e 63 |hey got |it launc|
|00004380| 68 65 64 0d 0a 09 09 09 | 2a 2d 20 63 68 65 63 6b |hed.....|*- check|
|00004390| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 77 6f 72 64 | version| of word|
|000043a0| 0d 0a 09 09 09 49 46 20 | 21 54 48 49 53 2e 63 68 |.....IF |!THIS.ch|
|000043b0| 65 63 6b 76 65 72 28 6d | 2e 63 76 65 72 73 69 6f |eckver(m|.cversio|
|000043c0| 6e 29 0d 0a 09 09 09 09 | 54 48 49 53 2e 41 4c 45 |n)......|THIS.ALE|
|000043d0| 52 54 28 45 5f 57 52 4f | 4e 47 57 4f 52 44 5f 4c |RT(E_WRO|NGWORD_L|
|000043e0| 4f 43 29 0d 0a 09 09 09 | 09 3d 44 44 45 54 65 72 |OC).....|.=DDETer|
|000043f0| 6d 69 6e 61 74 65 28 54 | 48 49 53 2e 73 79 73 63 |minate(T|HIS.sysc|
|00004400| 68 29 0d 0a 09 09 09 09 | 54 48 49 53 2e 73 79 73 |h)......|THIS.sys|
|00004410| 63 68 20 3d 20 2d 31 0d | 0a 09 09 09 45 4e 44 49 |ch = -1.|....ENDI|
|00004420| 46 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 45 4e 44 |F....END|IF...END|
|00004430| 49 46 0d 0a 0d 0a 09 2a | 2d 20 6f 6b 61 79 2c 20 |IF.....*|- okay, |
|00004440| 72 65 2d 73 65 74 20 65 | 72 72 6f 72 20 68 61 6e |re-set e|rror han|
|00004450| 64 6c 65 72 0d 0a 09 4f | 4e 20 45 52 52 4f 52 20 |dler...O|N ERROR |
|00004460| 26 63 4f 6c 64 45 72 72 | 0d 0a 09 49 46 20 5f 6d |&cOldErr|...IF _m|
|00004470| 61 63 0d 0a 09 09 54 48 | 49 53 2e 73 79 73 63 68 |ac....TH|IS.sysch|
|00004480| 20 3d 20 30 09 09 26 26 | 20 73 6f 20 69 74 20 6c | = 0..&&| so it l|
|00004490| 6f 6f 6b 73 20 6c 69 6b | 65 20 73 75 63 63 65 73 |ooks lik|e succes|
|000044a0| 73 0d 0a 09 45 4c 53 45 | 0d 0a 09 09 3d 44 44 45 |s...ELSE|....=DDE|
|000044b0| 53 65 74 4f 70 74 69 6f | 6e 28 22 53 41 46 45 54 |SetOptio|n("SAFET|
|000044c0| 59 22 2c 6d 2e 6c 73 61 | 66 65 74 79 29 0d 0a 09 |Y",m.lsa|fety)...|
|000044d0| 45 4e 44 49 46 0d 0a 09 | 57 41 49 54 20 43 4c 45 |ENDIF...|WAIT CLE|
|000044e0| 41 52 0d 0a 0d 0a 09 52 | 45 54 55 52 4e 20 28 54 |AR.....R|ETURN (T|
|000044f0| 48 49 53 2e 73 79 73 63 | 68 20 23 20 2d 31 29 0d |HIS.sysc|h # -1).|
|00004500| 0a 0d 0a 0d 0a 45 4e 44 | 50 52 4f 43 0d 0a 50 52 |.....END|PROC..PR|
|00004510| 4f 43 45 44 55 52 45 20 | 63 68 65 63 6b 76 65 72 |OCEDURE |checkver|
|00004520| 0d 0a 09 2a 2d 20 56 65 | 72 69 66 79 20 57 4f 52 |...*- Ve|rify WOR|
|00004530| 44 20 76 65 72 73 69 6f | 6e 0d 0a 0d 0a 09 50 41 |D versio|n.....PA|
|00004540| 52 41 4d 45 54 45 52 20 | 6d 2e 63 76 65 72 73 69 |RAMETER |m.cversi|
|00004550| 6f 6e 0d 0a 0d 0a 09 4c | 4f 43 41 4c 20 6c 77 6f |on.....L|OCAL lwo|
|00004560| 6f 7a 6c 65 0d 0a 0d 0a | 09 6d 2e 6c 77 6f 6f 7a |ozle....|.m.lwooz|
|00004570| 6c 65 20 3d 20 28 22 57 | 6f 6f 7a 6c 65 22 20 24 |le = ("W|oozle" $|
|00004580| 20 44 44 45 52 65 71 75 | 65 73 74 28 54 48 49 53 | DDERequ|est(THIS|
|00004590| 2e 73 79 73 63 68 2c 27 | 46 6f 72 6d 61 74 73 27 |.sysch,'|Formats'|
|000045a0| 29 29 0d 0a 09 52 45 54 | 55 52 4e 20 28 28 6d 2e |))...RET|URN ((m.|
|000045b0| 63 76 65 72 73 69 6f 6e | 20 3d 20 22 32 2e 30 22 |cversion| = "2.0"|
|000045c0| 20 41 4e 44 20 21 6d 2e | 6c 77 6f 6f 7a 6c 65 29 | AND !m.|lwoozle)|
|000045d0| 20 4f 52 20 28 6d 2e 63 | 76 65 72 73 69 6f 6e 20 | OR (m.c|version |
|000045e0| 3d 20 22 36 2e 30 22 20 | 41 4e 44 20 6d 2e 6c 77 |= "6.0" |AND m.lw|
|000045f0| 6f 6f 7a 6c 65 29 29 0d | 0a 0d 0a 45 4e 44 50 52 |oozle)).|...ENDPR|
|00004600| 4f 43 0d 0a 50 52 4f 43 | 45 44 55 52 45 20 67 65 |OC..PROC|EDURE ge|
|00004610| 74 6d 73 77 0d 0a 2a 2d | 20 67 65 74 20 74 68 65 |tmsw..*-| get the|
|00004620| 20 4d 53 20 57 6f 72 64 | 20 63 6f 6d 6d 61 6e 64 | MS Word| command|
|00004630| 20 6c 69 6e 65 20 66 72 | 6f 6d 20 72 65 67 69 73 | line fr|om regis|
|00004640| 74 72 79 20 66 69 6c 65 | 0d 0a 0d 0a 50 41 52 41 |try file|....PARA|
|00004650| 4d 45 54 45 52 20 6d 2e | 63 76 65 72 73 69 6f 6e |METER m.|cversion|
|00004660| 0d 0a 0d 0a 4c 4f 43 41 | 4c 20 63 43 6f 6d 6d 61 |....LOCA|L cComma|
|00004670| 6e 64 2c 20 63 45 78 74 | 4b 65 79 2c 20 6f 52 65 |nd, cExt|Key, oRe|
|00004680| 67 0d 0a 0d 0a 63 43 6f | 6d 6d 61 6e 64 20 3d 20 |g....cCo|mmand = |
|00004690| 22 22 0d 0a 63 45 78 74 | 4b 65 79 20 3d 20 22 22 |""..cExt|Key = ""|
|000046a0| 0d 0a 0d 0a 49 46 20 21 | 28 22 52 45 47 49 53 54 |....IF !|("REGIST|
|000046b0| 52 59 22 20 24 20 53 45 | 54 28 22 43 4c 41 53 53 |RY" $ SE|T("CLASS|
|000046c0| 22 29 29 0d 0a 09 53 45 | 54 20 43 4c 41 53 53 4c |"))...SE|T CLASSL|
|000046d0| 49 42 20 54 4f 20 72 65 | 67 69 73 74 72 79 20 41 |IB TO re|gistry A|
|000046e0| 44 44 49 54 49 56 45 0d | 0a 45 4e 44 49 46 0d 0a |DDITIVE.|.ENDIF..|
|000046f0| 0d 0a 6f 52 65 67 20 3d | 20 43 52 45 41 54 45 28 |..oReg =| CREATE(|
|00004700| 22 46 69 6c 65 52 65 67 | 22 29 09 26 26 20 69 6e |"FileReg|").&& in|
|00004710| 20 52 65 67 69 73 74 72 | 79 2e 56 43 58 0d 0a 49 | Registr|y.VCX..I|
|00004720| 46 20 54 59 50 45 28 22 | 6f 52 65 67 22 29 20 23 |F TYPE("|oReg") #|
|00004730| 20 27 4f 27 0d 0a 09 2a | 2d 20 66 61 69 6c 65 64 | 'O'...*|- failed|
|00004740| 20 74 6f 20 63 72 65 61 | 74 65 20 72 65 67 69 73 | to crea|te regis|
|00004750| 74 72 79 20 6f 62 6a 65 | 63 74 2c 20 73 6f 20 66 |try obje|ct, so f|
|00004760| 61 69 6c 2e 2e 2e 0d 0a | 09 52 45 54 55 52 4e 20 |ail.....|.RETURN |
|00004770| 22 22 0d 0a 45 4e 44 49 | 46 0d 0a 0d 0a 44 4f 20 |""..ENDI|F....DO |
|00004780| 43 41 53 45 0d 0a 0d 0a | 09 43 41 53 45 20 6d 2e |CASE....|.CASE m.|
|00004790| 63 76 65 72 73 69 6f 6e | 20 3d 20 43 5f 57 4f 52 |cversion| = C_WOR|
|000047a0| 44 36 5f 4f 52 5f 4c 41 | 54 45 52 0d 0a 0d 0a 09 |D6_OR_LA|TER.....|
|000047b0| 09 2a 2d 20 6c 6f 6f 6b | 20 69 6e 20 74 68 65 20 |.*- look| in the |
|000047c0| 52 65 67 69 73 74 72 79 | 20 66 6f 72 20 74 68 65 |Registry| for the|
|000047d0| 20 63 75 72 72 65 6e 74 | 20 69 6e 73 74 61 6c 6c | current| install|
|000047e0| 65 64 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 57 6f |ed versi|on of Wo|
|000047f0| 72 64 0d 0a 09 09 49 46 | 20 28 6f 52 65 67 2e 47 |rd....IF| (oReg.G|
|00004800| 65 74 4c 61 74 65 73 74 | 56 65 72 73 69 6f 6e 28 |etLatest|Version(|
|00004810| 52 45 47 5f 4d 53 57 44 | 4f 43 5f 4b 45 59 2c 40 |REG_MSWD|OC_KEY,@|
|00004820| 63 45 78 74 4b 65 79 2c | 40 63 43 6f 6d 6d 61 6e |cExtKey,|@cComman|
|00004830| 64 29 20 21 3d 20 45 52 | 52 4f 52 5f 53 55 43 43 |d) != ER|ROR_SUCC|
|00004840| 45 53 53 29 0d 0a 09 09 | 09 52 45 54 55 52 4e 20 |ESS)....|.RETURN |
|00004850| 22 22 0d 0a 09 09 45 4e | 44 49 46 0d 0a 09 09 0d |""....EN|DIF.....|
|00004860| 0a 09 09 54 48 49 53 2e | 63 57 6f 72 64 56 65 72 |...THIS.|cWordVer|
|00004870| 73 69 6f 6e 20 3d 20 52 | 49 47 48 54 28 63 45 78 |sion = R|IGHT(cEx|
|00004880| 74 4b 65 79 2c 31 29 0d | 0a 09 09 49 46 20 56 41 |tKey,1).|...IF VA|
|00004890| 4c 28 54 48 49 53 2e 63 | 57 6f 72 64 56 65 72 73 |L(THIS.c|WordVers|
|000048a0| 69 6f 6e 29 20 3c 20 56 | 41 4c 28 43 5f 57 4f 52 |ion) < V|AL(C_WOR|
|000048b0| 44 36 29 0d 0a 09 09 09 | 2a 2d 20 6e 6f 20 57 6f |D6).....|*- no Wo|
|000048c0| 72 64 20 36 2e 30 20 6f | 72 20 6c 61 74 65 72 20 |rd 6.0 o|r later |
|000048d0| 69 6e 20 52 65 67 69 73 | 74 72 79 0d 0a 09 09 09 |in Regis|try.....|
|000048e0| 52 45 54 55 52 4e 20 22 | 22 0d 0a 09 09 45 4e 44 |RETURN "|"....END|
|000048f0| 49 46 0d 0a 09 09 0d 0a | 09 09 2a 2d 20 73 74 72 |IF......|..*- str|
|00004900| 69 70 20 6f 66 66 20 61 | 6e 79 20 63 6f 6d 6d 61 |ip off a|ny comma|
|00004910| 6e 64 20 6c 69 6e 65 20 | 6f 70 74 69 6f 6e 73 20 |nd line |options |
|00004920| 28 65 2e 67 2e 2c 20 22 | 2f 57 22 29 0d 0a 09 09 |(e.g., "|/W")....|
|00004930| 6d 2e 63 43 6f 6d 6d 61 | 6e 64 20 3d 20 41 4c 4c |m.cComma|nd = ALL|
|00004940| 54 28 49 49 46 28 22 2f | 22 20 24 20 6d 2e 63 43 |T(IIF("/|" $ m.cC|
|00004950| 6f 6d 6d 61 6e 64 2c 4c | 45 46 54 28 6d 2e 63 43 |ommand,L|EFT(m.cC|
|00004960| 6f 6d 6d 61 6e 64 2c 41 | 54 28 22 2f 22 2c 6d 2e |ommand,A|T("/",m.|
|00004970| 63 43 6f 6d 6d 61 6e 64 | 29 20 2d 20 31 29 2c 6d |cCommand|) - 1),m|
|00004980| 2e 63 43 6f 6d 6d 61 6e | 64 29 29 0d 0a 0d 0a 09 |.cComman|d)).....|
|00004990| 09 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|000049a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049c0| 2d 2d 2d 0d 0a 09 09 2a | 2d 20 69 66 20 4d 53 20 |---....*|- if MS |
|000049d0| 57 6f 72 64 20 36 2e 30 | 20 6f 72 20 6c 61 74 65 |Word 6.0| or late|
|000049e0| 72 2c 20 6d 61 6b 65 20 | 73 75 72 65 20 4f 44 42 |r, make |sure ODB|
|000049f0| 43 20 73 74 75 66 66 20 | 69 73 20 70 72 65 73 65 |C stuff |is prese|
|00004a00| 6e 74 0d 0a 0d 0a 09 09 | 49 46 20 21 54 48 49 53 |nt......|IF !THIS|
|00004a10| 2e 49 73 4f 44 42 43 28 | 46 4f 58 4f 44 42 43 5f |.IsODBC(|FOXODBC_|
|00004a20| 41 4e 59 2c 22 44 22 29 | 0d 0a 09 09 09 57 41 49 |ANY,"D")|.....WAI|
|00004a30| 54 20 43 4c 45 41 52 0d | 0a 09 09 09 54 48 49 53 |T CLEAR.|....THIS|
|00004a40| 2e 41 6c 65 72 74 28 45 | 5f 4f 44 42 43 32 5f 4c |.Alert(E|_ODBC2_L|
|00004a50| 4f 43 29 0d 0a 09 09 09 | 54 48 49 53 2e 6c 41 6c |OC).....|THIS.lAl|
|00004a60| 65 72 74 65 64 20 3d 20 | 2e 54 2e 0d 0a 09 09 09 |erted = |.T......|
|00004a70| 52 45 54 55 52 4e 20 22 | 22 0d 0a 09 09 45 4e 44 |RETURN "|"....END|
|00004a80| 49 46 0d 0a 0d 0a 09 09 | 2a 2d 20 73 65 74 20 74 |IF......|*- set t|
|00004a90| 68 65 20 64 61 74 61 20 | 73 6f 75 72 63 65 0d 0a |he data |source..|
|00004aa0| 09 09 54 48 49 53 2e 47 | 65 74 44 53 4e 0d 0a 09 |..THIS.G|etDSN...|
|00004ab0| 09 49 46 20 45 4d 50 54 | 59 28 54 48 49 53 2e 61 |.IF EMPT|Y(THIS.a|
|00004ac0| 4f 44 42 43 44 72 69 76 | 65 72 73 5b 31 2c 31 5d |ODBCDriv|ers[1,1]|
|00004ad0| 29 0d 0a 09 09 09 52 45 | 54 55 52 4e 20 22 22 0d |).....RE|TURN "".|
|00004ae0| 0a 09 09 45 4e 44 49 46 | 0d 0a 0d 0a 09 4f 54 48 |...ENDIF|.....OTH|
|00004af0| 45 52 57 49 53 45 0d 0a | 09 09 6d 2e 6e 52 65 74 |ERWISE..|..m.nRet|
|00004b00| 4c 65 6e 20 3d 20 30 0d | 0a 45 4e 44 43 41 53 45 |Len = 0.|.ENDCASE|
|00004b10| 0d 0a 0d 0a 49 46 20 45 | 4d 50 54 59 28 6d 2e 63 |....IF E|MPTY(m.c|
|00004b20| 43 6f 6d 6d 61 6e 64 29 | 0d 0a 09 2a 2d 20 63 6f |Command)|...*- co|
|00004b30| 75 6c 64 6e 27 74 20 67 | 65 74 20 74 68 65 20 69 |uldn't g|et the i|
|00004b40| 6e 66 6f 0d 0a 09 57 41 | 49 54 20 43 4c 45 41 52 |nfo...WA|IT CLEAR|
|00004b50| 0d 0a 09 54 48 49 53 2e | 41 6c 65 72 74 28 53 54 |...THIS.|Alert(ST|
|00004b60| 52 54 52 41 4e 28 45 5f | 4e 4f 57 4f 52 44 45 52 |RTRAN(E_|NOWORDER|
|00004b70| 52 5f 4c 4f 43 2c 22 40 | 31 22 2c 6d 2e 63 76 65 |R_LOC,"@|1",m.cve|
|00004b80| 72 73 69 6f 6e 29 29 0d | 0a 09 54 48 49 53 2e 6c |rsion)).|..THIS.l|
|00004b90| 41 6c 65 72 74 65 64 20 | 3d 20 2e 54 2e 0d 0a 45 |Alerted |= .T...E|
|00004ba0| 4e 44 49 46 0d 0a 0d 0a | 52 45 54 55 52 4e 20 6d |NDIF....|RETURN m|
|00004bb0| 2e 63 43 6f 6d 6d 61 6e | 64 0d 0a 0d 0a 0d 0a 45 |.cComman|d......E|
|00004bc0| 4e 44 50 52 4f 43 0d 0a | 50 52 4f 43 45 44 55 52 |NDPROC..|PROCEDUR|
|00004bd0| 45 20 67 65 74 73 71 6c | 73 74 0d 0a 09 2a 2d 20 |E getsql|st...*- |
|00004be0| 67 65 74 20 74 68 65 20 | 53 51 4c 20 73 74 61 74 |get the |SQL stat|
|00004bf0| 65 6d 65 6e 74 20 66 6f | 72 20 65 78 74 72 61 63 |ement fo|r extrac|
|00004c00| 74 69 6e 67 20 64 61 74 | 61 0d 0a 0d 0a 09 50 52 |ting dat|a.....PR|
|00004c10| 49 56 41 54 45 20 6d 2e | 6e 66 68 2c 20 6d 2e 63 |IVATE m.|nfh, m.c|
|00004c20| 65 78 74 2c 20 6d 2e 63 | 63 75 72 74 61 62 6c 65 |ext, m.c|curtable|
|00004c30| 0d 0a 0d 0a 09 53 54 4f | 52 45 20 22 22 20 54 4f |.....STO|RE "" TO|
|00004c40| 20 63 73 71 6c 73 74 6d | 74 2c 20 63 63 6f 6e 6e | csqlstm|t, cconn|
|00004c50| 73 74 6d 74 0d 0a 09 6d | 2e 63 66 6e 61 6d 65 20 |stmt...m|.cfname |
|00004c60| 3d 20 22 22 0d 0a 0d 0a | 09 49 46 20 43 55 52 53 |= ""....|.IF CURS|
|00004c70| 4f 52 47 45 54 50 52 4f | 50 28 22 73 6f 75 72 63 |ORGETPRO|P("sourc|
|00004c80| 65 74 79 70 65 22 29 20 | 3d 20 4b 5f 54 41 42 4c |etype") |= K_TABL|
|00004c90| 45 0d 0a 09 09 2a 2d 20 | 73 69 6d 70 6c 65 20 74 |E....*- |simple t|
|00004ca0| 61 62 6c 65 2c 20 73 6f | 20 67 69 76 65 20 74 68 |able, so| give th|
|00004cb0| 65 6d 20 74 68 65 20 77 | 68 6f 6c 65 20 6d 65 73 |em the w|hole mes|
|00004cc0| 73 0d 0a 09 09 54 48 49 | 53 2e 63 73 71 6c 73 74 |s....THI|S.csqlst|
|00004cd0| 6d 74 20 3d 20 5b 73 65 | 6c 65 63 74 20 5d 20 2b |mt = [se|lect ] +|
|00004ce0| 20 54 48 49 53 2e 63 46 | 69 65 6c 64 4c 69 73 74 | THIS.cF|ieldList|
|00004cf0| 20 2b 20 5b 20 66 72 6f | 6d 20 27 5d 20 2b 20 54 | + [ fro|m '] + T|
|00004d00| 48 49 53 2e 4a 75 73 74 | 46 4e 61 6d 65 28 53 59 |HIS.Just|FName(SY|
|00004d10| 53 28 32 30 32 37 2c 54 | 48 49 53 2e 63 44 61 74 |S(2027,T|HIS.cDat|
|00004d20| 61 53 72 63 29 29 20 2b | 20 5b 27 5d 0d 0a 09 09 |aSrc)) +| [']....|
|00004d30| 54 48 49 53 2e 63 44 61 | 74 61 50 61 74 68 20 3d |THIS.cDa|taPath =|
|00004d40| 20 54 48 49 53 2e 41 64 | 64 42 53 28 54 48 49 53 | THIS.Ad|dBS(THIS|
|00004d50| 2e 4a 75 73 74 50 61 74 | 68 28 53 59 53 28 32 30 |.JustPat|h(SYS(20|
|00004d60| 32 37 2c 54 48 49 53 2e | 63 44 61 74 61 53 72 63 |27,THIS.|cDataSrc|
|00004d70| 29 29 29 0d 0a 09 45 4c | 53 45 0d 0a 09 09 54 48 |)))...EL|SE....TH|
|00004d80| 49 53 2e 63 73 71 6c 73 | 74 6d 74 20 3d 20 44 42 |IS.csqls|tmt = DB|
|00004d90| 47 45 54 50 52 4f 50 28 | 54 48 49 53 2e 63 44 42 |GETPROP(|THIS.cDB|
|00004da0| 43 54 61 62 6c 65 2c 22 | 56 49 45 57 22 2c 22 53 |CTable,"|VIEW","S|
|00004db0| 51 4c 22 29 0d 0a 09 45 | 4e 44 49 46 0d 0a 09 52 |QL")...E|NDIF...R|
|00004dc0| 45 54 55 52 4e 0d 0a 0d | 0a 45 4e 44 50 52 4f 43 |ETURN...|.ENDPROC|
|00004dd0| 0d 0a 50 52 4f 43 45 44 | 55 52 45 20 6d 72 67 63 |..PROCED|URE mrgc|
|00004de0| 6f 6d 6d 61 64 65 6c 0d | 0a 09 2a 2d 47 65 6e 65 |ommadel.|..*-Gene|
|00004df0| 72 61 74 65 20 61 20 64 | 65 6c 69 6d 69 74 65 64 |rate a d|elimited|
|00004e00| 20 74 65 78 74 20 66 69 | 6c 65 20 6f 66 20 64 61 | text fi|le of da|
|00004e10| 74 61 0d 0a 09 50 41 52 | 41 4d 45 54 45 52 20 63 |ta...PAR|AMETER c|
|00004e20| 64 65 6c 69 6d 69 74 0d | 0a 0d 0a 09 49 46 20 50 |delimit.|....IF P|
|00004e30| 41 52 41 4d 45 54 45 52 | 28 29 20 3d 20 30 0d 0a |ARAMETER|() = 0..|
|00004e40| 09 09 63 64 65 6c 69 6d | 69 74 20 3d 20 22 2c 22 |..cdelim|it = ","|
|00004e50| 0d 0a 09 45 4e 44 49 46 | 0d 0a 0d 0a 09 50 52 49 |...ENDIF|.....PRI|
|00004e60| 56 41 54 45 20 6e 63 75 | 72 73 65 6c 65 63 74 2c |VATE ncu|rselect,|
|00004e70| 20 6c 72 65 74 76 61 6c | 0d 0a 0d 0a 09 6d 2e 6e | lretval|.....m.n|
|00004e80| 63 75 72 73 65 6c 65 63 | 74 20 3d 20 53 45 4c 45 |curselec|t = SELE|
|00004e90| 43 54 28 29 0d 0a 0d 0a | 09 54 48 49 53 2e 63 44 |CT()....|.THIS.cD|
|00004ea0| 61 74 61 53 72 63 20 3d | 20 44 42 46 28 29 0d 0a |ataSrc =| DBF()..|
|00004eb0| 0d 0a 09 54 48 49 53 2e | 47 65 74 53 51 4c 53 74 |...THIS.|GetSQLSt|
|00004ec0| 0d 0a 09 49 46 20 45 4d | 50 54 59 28 54 48 49 53 |...IF EM|PTY(THIS|
|00004ed0| 2e 63 73 71 6c 73 74 6d | 74 29 0d 0a 09 09 2a 2d |.csqlstm|t)....*-|
|00004ee0| 20 63 6f 75 6c 64 6e 27 | 74 20 63 6f 6d 65 20 75 | couldn'|t come u|
|00004ef0| 70 20 77 69 74 68 20 53 | 51 4c 20 73 74 61 74 65 |p with S|QL state|
|00004f00| 6d 65 6e 74 0d 0a 09 09 | 52 45 54 55 52 4e 20 2e |ment....|RETURN .|
|00004f10| 46 2e 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 09 54 |F....END|IF.....T|
|00004f20| 48 49 53 2e 63 53 61 76 | 65 46 69 6c 65 20 3d 20 |HIS.cSav|eFile = |
|00004f30| 41 4c 4c 54 28 50 55 54 | 46 49 4c 45 28 43 5f 4d |ALLT(PUT|FILE(C_M|
|00004f40| 4d 53 41 56 45 41 53 5f | 4c 4f 43 2c 43 5f 44 46 |MSAVEAS_|LOC,C_DF|
|00004f50| 4c 54 4e 41 4d 45 5f 4c | 4f 43 2c 45 58 54 5f 54 |LTNAME_L|OC,EXT_T|
|00004f60| 58 54 29 29 0d 0a 09 49 | 46 20 45 4d 50 54 59 28 |XT))...I|F EMPTY(|
|00004f70| 54 48 49 53 2e 63 53 61 | 76 65 46 69 6c 65 29 0d |THIS.cSa|veFile).|
|00004f80| 0a 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00004f90| 45 4e 44 49 46 0d 0a 0d | 0a 09 54 48 49 53 2e 53 |ENDIF...|..THIS.S|
|00004fa0| 61 76 65 53 71 6c 28 4c | 5f 44 4f 4e 54 47 45 54 |aveSql(L|_DONTGET|
|00004fb0| 46 49 4c 45 29 0d 0a 09 | 49 46 20 21 45 4d 50 54 |FILE)...|IF !EMPT|
|00004fc0| 59 28 54 48 49 53 2e 63 | 74 6d 70 66 69 6c 65 29 |Y(THIS.c|tmpfile)|
|00004fd0| 20 41 4e 44 20 46 49 4c | 45 28 54 48 49 53 2e 63 | AND FIL|E(THIS.c|
|00004fe0| 74 6d 70 66 69 6c 65 29 | 0d 0a 09 09 53 45 4c 45 |tmpfile)|....SELE|
|00004ff0| 43 54 20 30 0d 0a 09 09 | 55 53 45 20 28 54 48 49 |CT 0....|USE (THI|
|00005000| 53 2e 63 74 6d 70 66 69 | 6c 65 29 0d 0a 09 45 4c |S.ctmpfi|le)...EL|
|00005010| 53 45 0d 0a 09 09 52 45 | 54 55 52 4e 20 2e 46 2e |SE....RE|TURN .F.|
|00005020| 0d 0a 09 45 4e 44 49 46 | 0d 0a 0d 0a 0d 0a 09 6d |...ENDIF|.......m|
|00005030| 2e 6c 72 65 74 76 61 6c | 20 3d 20 54 48 49 53 2e |.lretval| = THIS.|
|00005040| 77 7a 6d 6d 64 61 74 61 | 28 54 48 49 53 2e 63 53 |wzmmdata|(THIS.cS|
|00005050| 61 76 65 46 69 6c 65 2c | 6d 2e 63 64 65 6c 69 6d |aveFile,|m.cdelim|
|00005060| 69 74 29 0d 0a 0d 0a 09 | 49 46 20 21 45 4d 50 54 |it).....|IF !EMPT|
|00005070| 59 28 54 48 49 53 2e 63 | 54 6d 70 46 69 6c 65 29 |Y(THIS.c|TmpFile)|
|00005080| 0d 0a 09 09 2a 2d 20 63 | 6c 6f 73 65 20 74 65 6d |....*- c|lose tem|
|00005090| 70 20 66 69 6c 65 0d 0a | 09 09 55 53 45 0d 0a 09 |p file..|..USE...|
|000050a0| 09 45 52 41 53 45 20 28 | 54 48 49 53 2e 63 54 6d |.ERASE (|THIS.cTm|
|000050b0| 70 46 69 6c 65 29 0d 0a | 09 09 49 46 20 46 49 4c |pFile)..|..IF FIL|
|000050c0| 45 28 54 48 49 53 2e 4a | 75 73 74 53 74 65 6d 28 |E(THIS.J|ustStem(|
|000050d0| 54 48 49 53 2e 63 74 6d | 70 66 69 6c 65 29 20 2b |THIS.ctm|pfile) +|
|000050e0| 20 22 2e 46 50 54 22 29 | 0d 0a 09 09 09 45 52 41 | ".FPT")|.....ERA|
|000050f0| 53 45 20 28 54 48 49 53 | 2e 4a 75 73 74 53 74 65 |SE (THIS|.JustSte|
|00005100| 6d 28 54 48 49 53 2e 63 | 74 6d 70 66 69 6c 65 29 |m(THIS.c|tmpfile)|
|00005110| 20 2b 20 22 2e 46 50 54 | 22 29 0d 0a 09 09 45 4e | + ".FPT|")....EN|
|00005120| 44 49 46 0d 0a 09 09 49 | 46 20 46 49 4c 45 28 54 |DIF....I|F FILE(T|
|00005130| 48 49 53 2e 4a 75 73 74 | 53 74 65 6d 28 54 48 49 |HIS.Just|Stem(THI|
|00005140| 53 2e 63 74 6d 70 66 69 | 6c 65 29 20 2b 20 22 2e |S.ctmpfi|le) + ".|
|00005150| 43 44 58 22 29 0d 0a 09 | 09 09 45 52 41 53 45 20 |CDX")...|..ERASE |
|00005160| 28 54 48 49 53 2e 4a 75 | 73 74 53 74 65 6d 28 54 |(THIS.Ju|stStem(T|
|00005170| 48 49 53 2e 63 74 6d 70 | 66 69 6c 65 29 20 2b 20 |HIS.ctmp|file) + |
|00005180| 22 2e 43 44 58 22 29 0d | 0a 09 09 45 4e 44 49 46 |".CDX").|...ENDIF|
|00005190| 0d 0a 09 45 4e 44 49 46 | 0d 0a 0d 0a 09 2a 2d 20 |...ENDIF|.....*- |
|000051a0| 72 65 73 65 6c 65 63 74 | 20 63 75 72 72 65 6e 74 |reselect| current|
|000051b0| 20 77 6f 72 6b 20 61 72 | 65 61 0d 0a 09 53 45 4c | work ar|ea...SEL|
|000051c0| 45 43 54 20 28 6e 63 75 | 72 73 65 6c 65 63 74 29 |ECT (ncu|rselect)|
|000051d0| 0d 0a 0d 0a 09 52 45 54 | 55 52 4e 20 6d 2e 6c 72 |.....RET|URN m.lr|
|000051e0| 65 74 76 61 6c 0d 0a 0d | 0a 0d 0a 45 4e 44 50 52 |etval...|...ENDPR|
|000051f0| 4f 43 0d 0a 50 52 4f 43 | 45 44 55 52 45 20 77 7a |OC..PROC|EDURE wz|
|00005200| 6d 6d 64 61 74 61 0d 0a | 09 2a 2d 09 43 6f 70 79 |mmdata..|.*-.Copy|
|00005210| 20 64 61 74 61 20 74 6f | 20 61 20 74 65 78 74 20 | data to| a text |
|00005220| 66 69 6c 65 2c 20 77 69 | 74 68 20 66 69 65 6c 64 |file, wi|th field|
|00005230| 20 6e 61 6d 65 73 20 6f | 6e 20 6c 69 6e 65 20 31 | names o|n line 1|
|00005240| 0d 0a 09 2a 2d 09 41 73 | 73 75 6d 65 73 20 73 6f |...*-.As|sumes so|
|00005250| 75 72 63 65 20 66 69 6c | 65 20 69 73 20 6f 70 65 |urce fil|e is ope|
|00005260| 6e 20 69 6e 20 63 75 72 | 72 65 6e 74 20 77 6f 72 |n in cur|rent wor|
|00005270| 6b 20 61 72 65 61 0d 0a | 09 2a 2d 0d 0a 09 2a 2d |k area..|.*-...*-|
|00005280| 09 50 61 72 61 6d 65 74 | 65 72 73 09 63 73 61 76 |.Paramet|ers.csav|
|00005290| 65 66 69 6c 65 09 43 09 | 6e 61 6d 65 20 6f 66 20 |efile.C.|name of |
|000052a0| 74 65 78 74 20 66 69 6c | 65 20 74 6f 20 68 6f 6c |text fil|e to hol|
|000052b0| 64 20 72 65 73 75 6c 74 | 73 0d 0a 09 2a 2d 09 09 |d result|s...*-..|
|000052c0| 09 09 63 64 65 6c 69 6d | 69 74 09 09 43 09 64 65 |..cdelim|it..C.de|
|000052d0| 6c 69 6d 74 65 72 0d 0a | 09 2a 2d 0d 0a 09 2a 2d |limter..|.*-...*-|
|000052e0| 09 52 65 74 75 72 6e 73 | 20 2e 54 2e 20 69 66 20 |.Returns| .T. if |
|000052f0| 73 75 63 63 65 73 73 2c | 20 6f 74 68 65 72 77 69 |success,| otherwi|
|00005300| 73 65 20 2e 46 2e 0d 0a | 0d 0a 09 50 41 52 41 4d |se .F...|...PARAM|
|00005310| 45 54 45 52 20 63 73 61 | 76 65 66 69 6c 65 2c 20 |ETER csa|vefile, |
|00005320| 63 64 65 6c 69 6d 69 74 | 0d 0a 0d 0a 09 50 52 49 |cdelimit|.....PRI|
|00005330| 56 41 54 45 20 77 7a 6d | 6d 66 6c 64 73 2c 20 6e |VATE wzm|mflds, n|
|00005340| 63 74 72 2c 20 6e 66 68 | 2c 20 6e 74 65 6d 70 66 |ctr, nfh|, ntempf|
|00005350| 68 2c 20 6e 66 73 69 7a | 65 2c 20 63 62 79 74 65 |h, nfsiz|e, cbyte|
|00005360| 73 72 65 61 64 2c 20 77 | 7a 74 65 6d 70 66 69 6c |sread, w|ztempfil|
|00005370| 65 0d 0a 09 4c 4f 43 41 | 4c 20 63 63 72 6c 66 0d |e...LOCA|L ccrlf.|
|00005380| 0a 0d 0a 09 49 46 20 5f | 6d 61 63 0d 0a 09 09 63 |....IF _|mac....c|
|00005390| 63 72 6c 66 20 3d 20 49 | 49 46 28 54 48 49 53 2e |crlf = I|IF(THIS.|
|000053a0| 6e 57 6f 72 64 50 72 6f | 63 20 3d 20 4e 5f 57 4f |nWordPro|c = N_WO|
|000053b0| 52 44 36 30 2c 43 48 52 | 28 31 33 29 20 2b 20 43 |RD60,CHR|(13) + C|
|000053c0| 48 52 28 31 30 29 2c 20 | 43 48 52 28 31 33 29 29 |HR(10), |CHR(13))|
|000053d0| 09 26 26 20 73 6f 20 69 | 74 20 6d 61 74 63 68 65 |.&& so i|t matche|
|000053e0| 73 20 74 68 65 20 77 61 | 79 20 46 6f 78 20 65 78 |s the wa|y Fox ex|
|000053f0| 70 6f 72 74 73 20 74 68 | 65 20 64 61 74 61 0d 0a |ports th|e data..|
|00005400| 09 45 4c 53 45 0d 0a 09 | 09 63 63 72 6c 66 20 3d |.ELSE...|.ccrlf =|
|00005410| 20 43 48 52 28 31 33 29 | 20 2b 20 43 48 52 28 31 | CHR(13)| + CHR(1|
|00005420| 30 29 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 0d 0a |0)...END|IF......|
|00005430| 09 53 54 4f 52 45 20 2d | 31 20 54 4f 20 6d 2e 6e |.STORE -|1 TO m.n|
|00005440| 66 68 2c 20 6d 2e 6e 74 | 65 6d 70 66 68 0d 0a 09 |fh, m.nt|empfh...|
|00005450| 6d 2e 77 7a 74 65 6d 70 | 66 69 6c 65 20 3d 20 22 |m.wztemp|file = "|
|00005460| 22 0d 0a 0d 0a 09 2a 2d | 20 73 74 65 70 20 31 3a |".....*-| step 1:|
|00005470| 20 63 72 65 61 74 65 20 | 74 68 65 20 64 65 73 74 | create |the dest|
|00005480| 69 6e 61 74 69 6f 6e 20 | 66 69 6c 65 0d 0a 09 6d |ination |file...m|
|00005490| 2e 6e 66 68 20 3d 20 46 | 43 52 45 41 54 45 28 6d |.nfh = F|CREATE(m|
|000054a0| 2e 63 73 61 76 65 66 69 | 6c 65 2c 30 29 0d 0a 09 |.csavefi|le,0)...|
|000054b0| 49 46 20 6d 2e 6e 66 68 | 20 3d 20 2d 31 0d 0a 09 |IF m.nfh| = -1...|
|000054c0| 09 2a 2d 20 66 61 69 6c | 65 64 20 74 6f 20 63 72 |.*- fail|ed to cr|
|000054d0| 65 61 74 65 20 66 69 6c | 65 0d 0a 09 09 54 48 49 |eate fil|e....THI|
|000054e0| 53 2e 4d 4d 43 6c 65 61 | 6e 75 70 28 2e 46 2e 2c |S.MMClea|nup(.F.,|
|000054f0| 6d 2e 6e 66 68 2c 20 6d | 2e 6e 74 65 6d 70 66 68 |m.nfh, m|.ntempfh|
|00005500| 2c 20 6d 2e 77 7a 74 65 | 6d 70 66 69 6c 65 29 0d |, m.wzte|mpfile).|
|00005510| 0a 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00005520| 45 4e 44 49 46 0d 0a 0d | 0a 09 2a 2d 20 73 74 65 |ENDIF...|..*- ste|
|00005530| 70 20 32 20 2d 2d 20 77 | 72 69 74 65 20 6f 75 74 |p 2 -- w|rite out|
|00005540| 20 68 65 61 64 65 72 20 | 28 66 69 65 6c 64 20 6e | header |(field n|
|00005550| 61 6d 65 73 29 0d 0a 09 | 6d 2e 6e 66 63 6f 75 6e |ames)...|m.nfcoun|
|00005560| 74 20 3d 20 41 46 49 45 | 4c 44 53 28 77 7a 6d 6d |t = AFIE|LDS(wzmm|
|00005570| 66 6c 64 73 29 0d 0a 09 | 46 4f 52 20 6d 2e 6e 63 |flds)...|FOR m.nc|
|00005580| 74 72 20 3d 20 31 20 54 | 4f 20 6d 2e 6e 66 63 6f |tr = 1 T|O m.nfco|
|00005590| 75 6e 74 0d 0a 09 09 2a | 2d 20 6b 65 65 70 20 6c |unt....*|- keep l|
|000055a0| 61 73 74 20 66 69 65 6c | 64 20 6e 61 6d 65 20 65 |ast fiel|d name e|
|000055b0| 76 65 6e 20 69 66 20 6d | 65 6d 6f 2c 20 74 6f 20 |ven if m|emo, to |
|000055c0| 70 72 65 76 65 6e 74 20 | 69 6e 76 61 6c 69 64 20 |prevent |invalid |
|000055d0| 66 69 65 6c 64 20 6e 61 | 6d 65 20 65 72 72 0d 0a |field na|me err..|
|000055e0| 09 09 49 46 20 77 7a 6d | 6d 66 6c 64 73 5b 6d 2e |..IF wzm|mflds[m.|
|000055f0| 6e 63 74 72 2c 32 5d 20 | 24 20 27 4d 47 27 20 41 |nctr,2] |$ 'MG' A|
|00005600| 4e 44 20 6d 2e 6e 63 74 | 72 20 3c 20 6d 2e 6e 66 |ND m.nct|r < m.nf|
|00005610| 63 6f 75 6e 74 0d 0a 09 | 09 09 2a 2d 20 73 6b 69 |count...|..*- ski|
|00005620| 70 20 4d 65 6d 6f 20 66 | 69 65 6c 64 73 20 61 6e |p Memo f|ields an|
|00005630| 64 20 47 65 6e 65 72 61 | 6c 20 66 69 65 6c 64 73 |d Genera|l fields|
|00005640| 0d 0a 09 09 09 4c 4f 4f | 50 0d 0a 09 09 45 4e 44 |.....LOO|P....END|
|00005650| 49 46 0d 0a 09 09 49 46 | 20 46 57 52 49 54 45 28 |IF....IF| FWRITE(|
|00005660| 6d 2e 6e 66 68 2c 77 7a | 6d 6d 66 6c 64 73 5b 6d |m.nfh,wz|mmflds[m|
|00005670| 2e 6e 63 74 72 2c 31 5d | 29 20 3d 20 30 0d 0a 09 |.nctr,1]|) = 0...|
|00005680| 09 09 54 48 49 53 2e 4d | 4d 43 6c 65 61 6e 75 70 |..THIS.M|MCleanup|
|00005690| 28 2e 46 2e 2c 6d 2e 6e | 66 68 2c 20 6d 2e 6e 74 |(.F.,m.n|fh, m.nt|
|000056a0| 65 6d 70 66 68 2c 20 6d | 2e 77 7a 74 65 6d 70 66 |empfh, m|.wztempf|
|000056b0| 69 6c 65 29 0d 0a 09 09 | 09 52 45 54 55 52 4e 20 |ile)....|.RETURN |
|000056c0| 2e 46 2e 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 09 |.F.....E|NDIF....|
|000056d0| 49 46 20 6d 2e 6e 63 74 | 72 20 3c 20 6d 2e 6e 66 |IF m.nct|r < m.nf|
|000056e0| 63 6f 75 6e 74 0d 0a 09 | 09 09 49 46 20 46 57 52 |count...|..IF FWR|
|000056f0| 49 54 45 28 6d 2e 6e 66 | 68 2c 63 64 65 6c 69 6d |ITE(m.nf|h,cdelim|
|00005700| 69 74 29 20 3d 20 30 0d | 0a 09 09 09 09 54 48 49 |it) = 0.|.....THI|
|00005710| 53 2e 4d 4d 43 6c 65 61 | 6e 75 70 28 2e 46 2e 2c |S.MMClea|nup(.F.,|
|00005720| 6d 2e 6e 66 68 2c 20 6d | 2e 6e 74 65 6d 70 66 68 |m.nfh, m|.ntempfh|
|00005730| 2c 20 6d 2e 77 7a 74 65 | 6d 70 66 69 6c 65 29 0d |, m.wzte|mpfile).|
|00005740| 0a 09 09 09 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |.....RET|URN .F..|
|00005750| 0a 09 09 09 45 4e 44 49 | 46 0d 0a 09 09 45 4e 44 |....ENDI|F....END|
|00005760| 49 46 09 0d 0a 09 4e 45 | 58 54 0d 0a 0d 0a 09 49 |IF....NE|XT.....I|
|00005770| 46 20 6d 2e 6e 66 63 6f | 75 6e 74 20 3d 20 31 20 |F m.nfco|unt = 1 |
|00005780| 41 4e 44 20 54 48 49 53 | 2e 6e 57 6f 72 64 50 72 |AND THIS|.nWordPr|
|00005790| 6f 63 20 3d 20 4e 5f 57 | 4f 52 44 36 30 20 41 4e |oc = N_W|ORD60 AN|
|000057a0| 44 20 5f 6d 61 63 0d 0a | 09 09 2a 2d 20 57 6f 72 |D _mac..|..*- Wor|
|000057b0| 64 20 63 6f 6d 70 6c 61 | 69 6e 73 20 69 66 20 74 |d compla|ins if t|
|000057c0| 68 65 72 65 20 69 73 20 | 6f 6e 6c 79 20 6f 6e 65 |here is |only one|
|000057d0| 20 66 69 65 6c 64 0d 0a | 09 09 49 46 20 46 57 52 | field..|..IF FWR|
|000057e0| 49 54 45 28 6d 2e 6e 66 | 68 2c 63 64 65 6c 69 6d |ITE(m.nf|h,cdelim|
|000057f0| 69 74 29 20 3d 20 30 0d | 0a 09 09 54 48 49 53 2e |it) = 0.|...THIS.|
|00005800| 4d 4d 43 6c 65 61 6e 75 | 70 28 2e 46 2e 2c 6d 2e |MMCleanu|p(.F.,m.|
|00005810| 6e 66 68 2c 20 6d 2e 6e | 74 65 6d 70 66 68 2c 20 |nfh, m.n|tempfh, |
|00005820| 6d 2e 77 7a 74 65 6d 70 | 66 69 6c 65 29 0d 0a 09 |m.wztemp|file)...|
|00005830| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 09 45 4e |.RETURN |.F....EN|
|00005840| 44 49 46 0d 0a 09 45 4e | 44 49 46 0d 0a 0d 0a 09 |DIF...EN|DIF.....|
|00005850| 49 46 20 46 57 52 49 54 | 45 28 6d 2e 6e 66 68 2c |IF FWRIT|E(m.nfh,|
|00005860| 63 63 72 6c 66 29 20 3d | 20 30 0d 0a 09 09 54 48 |ccrlf) =| 0....TH|
|00005870| 49 53 2e 4d 4d 43 6c 65 | 61 6e 75 70 28 2e 46 2e |IS.MMCle|anup(.F.|
|00005880| 2c 6d 2e 6e 66 68 2c 20 | 6d 2e 6e 74 65 6d 70 66 |,m.nfh, |m.ntempf|
|00005890| 68 2c 20 6d 2e 77 7a 74 | 65 6d 70 66 69 6c 65 29 |h, m.wzt|empfile)|
|000058a0| 0d 0a 09 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |....RETU|RN .F...|
|000058b0| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 2a 2d 20 73 74 |.ENDIF..|...*- st|
|000058c0| 65 70 20 33 20 2d 2d 20 | 77 72 69 74 65 20 64 61 |ep 3 -- |write da|
|000058d0| 74 61 20 6f 75 74 20 74 | 6f 20 61 20 73 65 70 61 |ta out t|o a sepa|
|000058e0| 72 61 74 65 20 66 69 6c | 65 0d 0a 09 6d 2e 77 7a |rate fil|e...m.wz|
|000058f0| 74 65 6d 70 66 69 6c 65 | 20 3d 20 53 59 53 28 33 |tempfile| = SYS(3|
|00005900| 29 20 2b 20 22 2e 54 58 | 54 22 0d 0a 0d 0a 09 49 |) + ".TX|T".....I|
|00005910| 46 20 6d 2e 63 64 65 6c | 69 6d 69 74 20 3d 20 4b |F m.cdel|imit = K|
|00005920| 5f 54 41 42 0d 0a 09 09 | 43 4f 50 59 20 54 4f 20 |_TAB....|COPY TO |
|00005930| 28 6d 2e 77 7a 74 65 6d | 70 66 69 6c 65 29 20 44 |(m.wztem|pfile) D|
|00005940| 45 4c 49 20 57 49 54 48 | 20 54 41 42 0d 0a 09 45 |ELI WITH| TAB...E|
|00005950| 4c 53 45 0d 0a 09 09 43 | 4f 50 59 20 54 4f 20 28 |LSE....C|OPY TO (|
|00005960| 6d 2e 77 7a 74 65 6d 70 | 66 69 6c 65 29 20 44 45 |m.wztemp|file) DE|
|00005970| 4c 49 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 09 2a |LI...END|IF.....*|
|00005980| 2d 20 73 74 65 70 20 34 | 3a 20 6d 6f 76 65 20 74 |- step 4|: move t|
|00005990| 65 6d 70 20 66 69 6c 65 | 20 64 61 74 61 20 74 6f |emp file| data to|
|000059a0| 20 65 6e 64 20 6f 66 20 | 64 65 73 74 69 6e 61 74 | end of |destinat|
|000059b0| 69 6f 6e 20 66 69 6c 65 | 0d 0a 09 6d 2e 6e 74 65 |ion file|...m.nte|
|000059c0| 6d 70 66 68 20 3d 20 46 | 4f 50 45 4e 28 6d 2e 77 |mpfh = F|OPEN(m.w|
|000059d0| 7a 74 65 6d 70 66 69 6c | 65 2c 30 29 0d 0a 09 49 |ztempfil|e,0)...I|
|000059e0| 46 20 6d 2e 6e 74 65 6d | 70 66 68 20 3d 20 2d 31 |F m.ntem|pfh = -1|
|000059f0| 0d 0a 09 09 2a 2d 20 66 | 61 69 6c 65 64 20 74 6f |....*- f|ailed to|
|00005a00| 20 6f 70 65 6e 20 74 65 | 6d 70 20 66 69 6c 65 0d | open te|mp file.|
|00005a10| 0a 09 09 54 48 49 53 2e | 4d 4d 43 6c 65 61 6e 75 |...THIS.|MMCleanu|
|00005a20| 70 28 2e 46 2e 2c 6d 2e | 6e 66 68 2c 20 6d 2e 6e |p(.F.,m.|nfh, m.n|
|00005a30| 74 65 6d 70 66 68 2c 20 | 6d 2e 77 7a 74 65 6d 70 |tempfh, |m.wztemp|
|00005a40| 66 69 6c 65 29 0d 0a 09 | 09 52 45 54 55 52 4e 20 |file)...|.RETURN |
|00005a50| 2e 46 2e 0d 0a 09 45 4e | 44 49 46 0d 0a 0d 0a 09 |.F....EN|DIF.....|
|00005a60| 2a 2d 20 67 65 74 20 66 | 69 6c 65 20 73 69 7a 65 |*- get f|ile size|
|00005a70| 2c 20 61 6e 64 20 72 65 | 74 75 72 6e 20 70 6f 69 |, and re|turn poi|
|00005a80| 6e 74 65 72 20 74 6f 20 | 74 6f 70 20 6f 66 20 66 |nter to |top of f|
|00005a90| 69 6c 65 0d 0a 09 3d 46 | 53 45 45 4b 28 6d 2e 6e |ile...=F|SEEK(m.n|
|00005aa0| 74 65 6d 70 66 68 2c 30 | 29 0d 0a 0d 0a 09 2a 2d |tempfh,0|).....*-|
|00005ab0| 20 52 65 61 64 69 6e 27 | 20 61 6e 64 20 77 72 69 | Readin'| and wri|
|00005ac0| 74 69 6e 27 0d 0a 09 44 | 4f 20 57 48 49 4c 45 20 |tin'...D|O WHILE |
|00005ad0| 21 46 45 4f 46 28 6d 2e | 6e 74 65 6d 70 66 68 29 |!FEOF(m.|ntempfh)|
|00005ae0| 0d 0a 09 09 6d 2e 63 62 | 79 74 65 73 72 65 61 64 |....m.cb|ytesread|
|00005af0| 20 3d 20 46 52 45 41 44 | 28 6d 2e 6e 74 65 6d 70 | = FREAD|(m.ntemp|
|00005b00| 66 68 2c 4b 5f 54 52 41 | 4e 53 46 45 52 29 0d 0a |fh,K_TRA|NSFER)..|
|00005b10| 09 09 49 46 20 6d 2e 6e | 66 63 6f 75 6e 74 20 3d |..IF m.n|fcount =|
|00005b20| 20 31 20 41 4e 44 20 54 | 48 49 53 2e 6e 57 6f 72 | 1 AND T|HIS.nWor|
|00005b30| 64 50 72 6f 63 20 3d 20 | 4e 5f 57 4f 52 44 36 30 |dProc = |N_WORD60|
|00005b40| 20 41 4e 44 20 5f 6d 61 | 63 0d 0a 09 09 09 2a 2d | AND _ma|c.....*-|
|00005b50| 20 61 64 64 20 61 20 65 | 78 74 72 61 20 64 65 6c | add a e|xtra del|
|00005b60| 69 6d 69 74 65 72 0d 0a | 09 09 09 6d 2e 63 62 79 |imiter..|...m.cby|
|00005b70| 74 65 73 72 65 61 64 20 | 3d 20 53 54 52 54 52 41 |tesread |= STRTRA|
|00005b80| 4e 28 6d 2e 63 62 79 74 | 65 73 72 65 61 64 2c 63 |N(m.cbyt|esread,c|
|00005b90| 63 72 6c 66 2c 63 64 65 | 6c 69 6d 69 74 20 2b 20 |crlf,cde|limit + |
|00005ba0| 63 63 72 6c 66 29 0d 0a | 09 09 45 4e 44 49 46 0d |ccrlf)..|..ENDIF.|
|00005bb0| 0a 09 09 49 46 20 54 48 | 49 53 2e 6e 57 6f 72 64 |...IF TH|IS.nWord|
|00005bc0| 50 72 6f 63 20 23 20 4e | 5f 57 4f 52 44 36 30 20 |Proc # N|_WORD60 |
|00005bd0| 41 4e 44 20 5f 6d 61 63 | 0d 0a 09 09 09 2a 2d 20 |AND _mac|.....*- |
|00005be0| 72 65 6d 6f 76 65 20 4c | 46 73 20 6f 6e 20 4d 61 |remove L|Fs on Ma|
|00005bf0| 63 0d 0a 09 09 09 6d 2e | 63 62 79 74 65 73 72 65 |c.....m.|cbytesre|
|00005c00| 61 64 20 3d 20 53 54 52 | 54 52 41 4e 28 6d 2e 63 |ad = STR|TRAN(m.c|
|00005c10| 62 79 74 65 73 72 65 61 | 64 2c 43 48 52 28 31 30 |bytesrea|d,CHR(10|
|00005c20| 29 2c 27 27 29 0d 0a 09 | 09 45 4e 44 49 46 0d 0a |),'')...|.ENDIF..|
|00005c30| 09 09 6d 2e 6e 62 79 74 | 65 73 77 72 69 74 20 3d |..m.nbyt|eswrit =|
|00005c40| 20 46 57 52 49 54 45 28 | 6d 2e 6e 66 68 2c 20 6d | FWRITE(|m.nfh, m|
|00005c50| 2e 63 62 79 74 65 73 72 | 65 61 64 29 0d 0a 09 09 |.cbytesr|ead)....|
|00005c60| 49 46 20 6d 2e 6e 62 79 | 74 65 73 77 72 69 74 20 |IF m.nby|teswrit |
|00005c70| 3c 3e 20 4c 45 4e 28 6d | 2e 63 62 79 74 65 73 72 |<> LEN(m|.cbytesr|
|00005c80| 65 61 64 29 0d 0a 09 09 | 09 2a 2d 20 65 72 72 6f |ead)....|.*- erro|
|00005c90| 72 20 77 72 69 74 69 6e | 67 20 66 69 6c 65 0d 0a |r writin|g file..|
|00005ca0| 09 09 09 54 48 49 53 2e | 4d 4d 43 6c 65 61 6e 75 |...THIS.|MMCleanu|
|00005cb0| 70 28 2e 46 2e 2c 6d 2e | 6e 66 68 2c 20 6d 2e 6e |p(.F.,m.|nfh, m.n|
|00005cc0| 74 65 6d 70 66 68 2c 20 | 6d 2e 77 7a 74 65 6d 70 |tempfh, |m.wztemp|
|00005cd0| 66 69 6c 65 29 0d 0a 09 | 09 09 52 45 54 55 52 4e |file)...|..RETURN|
|00005ce0| 20 2e 46 2e 0d 0a 09 09 | 45 4e 44 49 46 0d 0a 09 | .F.....|ENDIF...|
|00005cf0| 45 4e 44 44 4f 0d 0a 0d | 0a 09 2a 2d 20 74 68 61 |ENDDO...|..*- tha|
|00005d00| 74 20 73 68 6f 75 6c 64 | 20 62 65 20 69 74 0d 0a |t should| be it..|
|00005d10| 09 54 48 49 53 2e 4d 4d | 43 6c 65 61 6e 75 70 28 |.THIS.MM|Cleanup(|
|00005d20| 2e 54 2e 2c 6d 2e 6e 66 | 68 2c 20 6d 2e 6e 74 65 |.T.,m.nf|h, m.nte|
|00005d30| 6d 70 66 68 2c 20 6d 2e | 77 7a 74 65 6d 70 66 69 |mpfh, m.|wztempfi|
|00005d40| 6c 65 29 0d 0a 0d 0a 09 | 52 45 54 55 52 4e 20 2e |le).....|RETURN .|
|00005d50| 54 2e 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |T.....EN|DPROC..P|
|00005d60| 52 4f 43 45 44 55 52 45 | 20 6d 6d 63 6c 65 61 6e |ROCEDURE| mmclean|
|00005d70| 75 70 0d 0a 09 2a 2d 20 | 43 6c 6f 73 65 20 66 69 |up...*- |Close fi|
|00005d80| 6c 65 73 2c 20 65 72 61 | 73 65 20 74 65 6d 70 20 |les, era|se temp |
|00005d90| 66 69 6c 65 0d 0a 09 50 | 41 52 41 4d 45 54 45 52 |file...P|ARAMETER|
|00005da0| 20 6c 6f 6b 2c 20 6e 66 | 68 31 2c 20 6e 66 68 32 | lok, nf|h1, nfh2|
|00005db0| 2c 20 63 74 65 6d 70 66 | 69 6c 65 0d 0a 0d 0a 09 |, ctempf|ile.....|
|00005dc0| 49 46 20 21 6d 2e 6c 6f | 6b 0d 0a 09 09 54 48 49 |IF !m.lo|k....THI|
|00005dd0| 53 2e 41 4c 45 52 54 28 | 45 5f 46 49 4c 45 45 52 |S.ALERT(|E_FILEER|
|00005de0| 52 5f 4c 4f 43 29 0d 0a | 09 45 4e 44 49 46 0d 0a |R_LOC)..|.ENDIF..|
|00005df0| 0d 0a 09 49 46 20 6d 2e | 6e 66 68 31 20 3e 20 2d |...IF m.|nfh1 > -|
|00005e00| 31 0d 0a 09 09 3d 46 43 | 4c 4f 53 45 28 6d 2e 6e |1....=FC|LOSE(m.n|
|00005e10| 66 68 31 29 0d 0a 09 45 | 4e 44 49 46 0d 0a 0d 0a |fh1)...E|NDIF....|
|00005e20| 09 49 46 20 6d 2e 6e 66 | 68 32 20 3e 20 2d 31 0d |.IF m.nf|h2 > -1.|
|00005e30| 0a 09 09 3d 46 43 4c 4f | 53 45 28 6d 2e 6e 66 68 |...=FCLO|SE(m.nfh|
|00005e40| 32 29 0d 0a 09 45 4e 44 | 49 46 0d 0a 0d 0a 09 49 |2)...END|IF.....I|
|00005e50| 46 20 21 45 4d 50 54 59 | 28 63 74 65 6d 70 66 69 |F !EMPTY|(ctempfi|
|00005e60| 6c 65 29 20 41 4e 44 20 | 46 49 4c 45 28 63 74 65 |le) AND |FILE(cte|
|00005e70| 6d 70 66 69 6c 65 29 0d | 0a 09 09 45 52 41 53 45 |mpfile).|...ERASE|
|00005e80| 20 28 63 74 65 6d 70 66 | 69 6c 65 29 0d 0a 09 45 | (ctempf|ile)...E|
|00005e90| 4e 44 49 46 0d 0a 0d 0a | 09 52 45 54 55 52 4e 20 |NDIF....|.RETURN |
|00005ea0| 20 2e 54 2e 0d 0a 0d 0a | 45 4e 44 50 52 4f 43 0d | .T.....|ENDPROC.|
|00005eb0| 0a 50 52 4f 43 45 44 55 | 52 45 20 73 61 76 65 73 |.PROCEDU|RE saves|
|00005ec0| 71 6c 0d 0a 09 2a 2d 20 | 47 65 6e 65 72 61 74 65 |ql...*- |Generate|
|00005ed0| 20 61 20 74 61 62 6c 65 | 20 6f 66 20 74 68 65 20 | a table| of the |
|00005ee0| 53 51 4c 20 71 75 65 72 | 79 20 72 65 73 75 6c 74 |SQL quer|y result|
|00005ef0| 73 0d 0a 0d 0a 09 50 41 | 52 41 4d 45 54 45 52 20 |s.....PA|RAMETER |
|00005f00| 6c 67 65 74 66 6e 61 6d | 65 0d 0a 0d 0a 09 50 52 |lgetfnam|e.....PR|
|00005f10| 49 56 41 54 45 20 6d 2e | 63 63 75 72 74 61 62 6c |IVATE m.|ccurtabl|
|00005f20| 65 0d 0a 09 0d 0a 09 4c | 4f 43 41 4c 20 63 4f 6c |e......L|OCAL cOl|
|00005f30| 64 44 65 66 61 0d 0a 0d | 0a 09 49 46 20 6c 67 65 |dDefa...|..IF lge|
|00005f40| 74 66 6e 61 6d 65 0d 0a | 09 09 09 6d 2e 63 6f 6c |tfname..|...m.col|
|00005f50| 64 73 61 66 65 20 3d 20 | 53 45 54 28 22 53 41 46 |dsafe = |SET("SAF|
|00005f60| 45 22 29 0d 0a 09 09 09 | 53 45 54 20 53 41 46 45 |E").....|SET SAFE|
|00005f70| 54 59 20 4f 4e 0d 0a 09 | 09 09 54 48 49 53 2e 63 |TY ON...|..THIS.c|
|00005f80| 74 6d 70 66 69 6c 65 20 | 3d 20 50 55 54 46 49 4c |tmpfile |= PUTFIL|
|00005f90| 45 28 43 5f 4d 4d 53 41 | 56 45 41 53 5f 4c 4f 43 |E(C_MMSA|VEAS_LOC|
|00005fa0| 2c 43 5f 44 46 4c 54 44 | 42 46 5f 4c 4f 43 2c 45 |,C_DFLTD|BF_LOC,E|
|00005fb0| 58 54 5f 44 42 46 29 0d | 0a 09 09 09 53 45 54 20 |XT_DBF).|....SET |
|00005fc0| 53 41 46 45 54 59 20 26 | 63 6f 6c 64 73 61 66 65 |SAFETY &|coldsafe|
|00005fd0| 0d 0a 09 45 4c 53 45 0d | 0a 09 09 54 48 49 53 2e |...ELSE.|...THIS.|
|00005fe0| 63 74 6d 70 66 69 6c 65 | 20 3d 20 53 59 53 28 33 |ctmpfile| = SYS(3|
|00005ff0| 29 20 2b 20 22 2e 44 42 | 46 22 0d 0a 09 45 4e 44 |) + ".DB|F"...END|
|00006000| 49 46 0d 0a 0d 0a 09 49 | 46 20 45 4d 50 54 59 28 |IF.....I|F EMPTY(|
|00006010| 54 48 49 53 2e 63 74 6d | 70 66 69 6c 65 29 0d 0a |THIS.ctm|pfile)..|
|00006020| 09 09 52 45 54 55 52 4e | 20 2e 46 2e 0d 0a 09 45 |..RETURN| .F....E|
|00006030| 4c 53 45 0d 0a 09 09 6d | 2e 63 63 75 72 74 61 62 |LSE....m|.ccurtab|
|00006040| 6c 65 20 3d 20 49 49 46 | 28 21 45 4d 50 54 59 28 |le = IIF|(!EMPTY(|
|00006050| 41 4c 49 41 53 28 29 29 | 2c 41 4c 49 41 53 28 29 |ALIAS())|,ALIAS()|
|00006060| 2c 22 22 29 0d 0a 09 09 | 6d 2e 63 73 71 6c 73 74 |,"")....|m.csqlst|
|00006070| 6d 74 20 3d 20 54 48 49 | 53 2e 63 73 71 6c 73 74 |mt = THI|S.csqlst|
|00006080| 6d 74 0d 0a 0d 0a 09 09 | 2a 2d 20 65 78 65 63 75 |mt......|*- execu|
|00006090| 74 65 20 74 68 65 20 53 | 51 4c 20 71 75 65 72 79 |te the S|QL query|
|000060a0| 0d 0a 09 09 63 4f 6c 64 | 44 65 66 61 20 3d 20 53 |....cOld|Defa = S|
|000060b0| 45 54 28 22 44 45 46 41 | 55 4c 54 22 29 20 2b 20 |ET("DEFA|ULT") + |
|000060c0| 43 55 52 44 49 52 28 29 | 0d 0a 09 09 49 46 20 21 |CURDIR()|....IF !|
|000060d0| 45 4d 50 54 59 28 54 48 | 49 53 2e 63 44 61 74 61 |EMPTY(TH|IS.cData|
|000060e0| 50 61 74 68 29 0d 0a 09 | 09 09 53 45 54 20 44 45 |Path)...|..SET DE|
|000060f0| 46 41 55 4c 54 20 54 4f | 20 28 54 48 49 53 2e 63 |FAULT TO| (THIS.c|
|00006100| 44 61 74 61 50 61 74 68 | 29 0d 0a 09 09 45 4e 44 |DataPath|)....END|
|00006110| 49 46 0d 0a 09 09 26 63 | 73 71 6c 73 74 6d 74 20 |IF....&c|sqlstmt |
|00006120| 49 4e 54 4f 20 44 42 46 | 20 28 54 48 49 53 2e 63 |INTO DBF| (THIS.c|
|00006130| 54 6d 70 46 69 6c 65 29 | 0d 0a 09 09 54 48 49 53 |TmpFile)|....THIS|
|00006140| 2e 63 74 6d 70 66 69 6c | 65 20 3d 20 46 55 4c 4c |.ctmpfil|e = FULL|
|00006150| 50 41 54 48 28 54 48 49 | 53 2e 63 74 6d 70 66 69 |PATH(THI|S.ctmpfi|
|00006160| 6c 65 29 0d 0a 09 09 55 | 53 45 0d 0a 09 09 49 46 |le)....U|SE....IF|
|00006170| 20 21 45 4d 50 54 59 28 | 6d 2e 63 63 75 72 74 61 | !EMPTY(|m.ccurta|
|00006180| 62 6c 65 29 20 41 4e 44 | 20 55 53 45 44 28 6d 2e |ble) AND| USED(m.|
|00006190| 63 63 75 72 74 61 62 6c | 65 29 0d 0a 09 09 09 53 |ccurtabl|e).....S|
|000061a0| 45 4c 45 43 54 20 28 63 | 63 75 72 74 61 62 6c 65 |ELECT (c|curtable|
|000061b0| 29 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 09 54 48 |)....END|IF....TH|
|000061c0| 49 53 2e 63 73 71 6c 73 | 74 6d 74 20 3d 20 22 53 |IS.csqls|tmt = "S|
|000061d0| 45 4c 45 43 54 20 2a 20 | 46 52 4f 4d 20 22 20 2b |ELECT * |FROM " +|
|000061e0| 20 54 48 49 53 2e 4a 75 | 73 74 46 4e 61 6d 65 28 | THIS.Ju|stFName(|
|000061f0| 54 48 49 53 2e 63 54 6d | 70 46 69 6c 65 29 0d 0a |THIS.cTm|pFile)..|
|00006200| 09 09 54 48 49 53 2e 63 | 44 61 74 61 50 61 74 68 |..THIS.c|DataPath|
|00006210| 20 3d 20 54 48 49 53 2e | 41 64 64 42 53 28 54 48 | = THIS.|AddBS(TH|
|00006220| 49 53 2e 4a 75 73 74 50 | 61 74 68 28 54 48 49 53 |IS.JustP|ath(THIS|
|00006230| 2e 63 54 6d 70 46 69 6c | 65 29 29 0d 0a 09 09 53 |.cTmpFil|e))....S|
|00006240| 45 54 20 44 45 46 41 55 | 4c 54 20 54 4f 20 28 6d |ET DEFAU|LT TO (m|
|00006250| 2e 63 4f 6c 64 44 65 66 | 61 29 09 0d 0a 09 45 4e |.cOldDef|a)....EN|
|00006260| 44 49 46 0d 0a 09 52 45 | 54 55 52 4e 20 2e 54 2e |DIF...RE|TURN .T.|
|00006270| 0d 0a 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |......EN|DPROC..P|
|00006280| 52 4f 43 45 44 55 52 45 | 20 6d 61 69 6c 6d 65 72 |ROCEDURE| mailmer|
|00006290| 67 65 6d 61 63 77 6f 72 | 64 36 0d 0a 09 09 2a 2d |gemacwor|d6....*-|
|000062a0| 20 64 72 69 76 65 20 4d | 53 20 57 6f 72 64 20 66 | drive M|S Word f|
|000062b0| 6f 72 20 4d 61 63 69 6e | 74 6f 73 68 20 36 2e 30 |or Macin|tosh 6.0|
|000062c0| 0d 0a 09 09 2a 2d 0d 0a | 09 09 2a 2d 20 73 74 65 |....*-..|..*- ste|
|000062d0| 70 20 31 3a 20 43 72 65 | 61 74 65 20 74 65 78 74 |p 1: Cre|ate text|
|000062e0| 20 66 69 6c 65 20 6f 66 | 20 64 61 74 61 0d 0a 09 | file of| data...|
|000062f0| 09 2a 2d 20 73 74 65 70 | 20 32 3a 20 43 72 65 61 |.*- step| 2: Crea|
|00006300| 74 65 20 41 70 70 6c 65 | 73 63 72 69 70 74 20 75 |te Apple|script u|
|00006310| 73 69 6e 67 20 74 65 78 | 74 6d 65 72 67 65 20 74 |sing tex|tmerge t|
|00006320| 68 61 74 20 77 69 6c 6c | 20 6f 70 65 6e 20 73 70 |hat will| open sp|
|00006330| 65 63 69 66 69 65 64 0d | 0a 09 09 2a 2d 20 20 20 |ecified.|...*- |
|00006340| 20 20 20 20 20 20 66 69 | 6c 65 2c 20 61 6e 64 20 | fi|le, and |
|00006350| 61 74 74 61 63 68 20 64 | 61 74 61 20 74 6f 20 69 |attach d|ata to i|
|00006360| 74 2e 0d 0a 09 09 2a 2d | 20 73 74 65 70 20 33 3a |t.....*-| step 3:|
|00006370| 20 52 75 6e 20 41 70 70 | 6c 65 73 63 72 69 70 74 | Run App|lescript|
|00006380| 0d 0a 09 0d 0a 09 09 4c | 4f 43 41 4c 20 63 73 63 |.......L|OCAL csc|
|00006390| 72 69 70 74 2c 20 6c 73 | 63 72 69 70 74 65 72 72 |ript, ls|cripterr|
|000063a0| 0d 0a 0d 0a 09 09 49 46 | 20 21 5f 6d 61 63 0d 0a |......IF| !_mac..|
|000063b0| 09 09 09 2a 2d 20 74 68 | 69 73 20 69 73 20 6f 6e |...*- th|is is on|
|000063c0| 6c 79 20 66 6f 72 20 74 | 68 65 20 4d 61 63 0d 0a |ly for t|he Mac..|
|000063d0| 09 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|000063e0| 09 45 4e 44 49 46 0d 0a | 0d 0a 09 09 49 46 20 45 |.ENDIF..|....IF E|
|000063f0| 4d 50 54 59 28 54 48 49 | 53 2e 63 65 78 65 29 0d |MPTY(THI|S.cexe).|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
